Ответы
Ответ дал:
1
var i,j,x,y : word;
begin
x:=1;
y:=50;
while y>0 do
begin
for i:=x to (x+4) do write (i,' ');//выводит числа от 1 до 50
x:=x+5;
writeln;
for j:=y downto (y-4) do write (j,' ');//выводит числа от 50 до 1
y:=y-5;
writeln;
end;
end.
begin
x:=1;
y:=50;
while y>0 do
begin
for i:=x to (x+4) do write (i,' ');//выводит числа от 1 до 50
x:=x+5;
writeln;
for j:=y downto (y-4) do write (j,' ');//выводит числа от 50 до 1
y:=y-5;
writeln;
end;
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад