Ввести слово, и чтоб вывести его вертикально

21.10.2010, 15:35. **Показов** 2656. **Ответов** 2

1 Вывести сумму первых 20 чисел.
2 Ввести слово, и чтоб его вывело 20 раз.
3 Ввести слово, и чтоб вывести его вертикально.

@Puporev · 21.10.2010, 15:41

1. С циклом

Pascal

s:=0;
for i:=1 to 20 do
s:=s+i;
write('S=',s);

линейно

Pascal

1 2	s:=(1+20)*10; write('S=',s);

@Lyohich84 · 21.10.2010, 15:42

2.

Pascal

uses crt;
var
i:integer;
slovo:string;
begin
clrscr;
readln(slovo);
for i:=1 to 20 do
 writeln(slovo);
readln
end.

3.

Pascal

uses crt;
var
i:integer;
slovo:string;
begin
clrscr;
readln(slovo);
for i:=1 to length(slovo) do
 writeln(slovo[i]);
readln
end.

n1ced
		1
	Ввести слово, и чтоб вывести его вертикально 21.10.2010, 15:35. Показов 2656. Ответов 2 Метки нет (Все метки) 1 Вывести сумму первых 20 чисел. 2 Ввести слово, и чтоб его вывело 20 раз. 3 Ввести слово, и чтоб вывести его вертикально.

	21.10.2010, 15:42

Решение