Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы