Ответы
Ответ дал:
0
Program Loop;
Uses Crt;
var i:integer;
begin
clrscr;
for i:=1 to 4 do write(i);
for i:=3 downto 1 do write(i);
readkey;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад