Ответ учителя по предмету Информатика
var a,b,i:integer;
begin
read(a);read(b);
if(a<b)then for i:=a to b do write(i, ‘ ‘)
else for i:=b to a do write(i,’ ‘);
end.
var a,b,i:integer;
begin
read(a);read(b);
if(a<b)then for i:=a to b do write(i, ‘ ‘)
else for i:=b to a do write(i,’ ‘);
end.
Похожие вопросы от пользователей
решите пожалуйста
Дам 30 баллов!!