Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A меньше B, или в порядке убывания в противном случае
Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
readln (a,b);
If a>b then
for a:=a-1 downto b+1 do
writeln (a)
else
for a:=a+1 to b-1 do
writeln (a);
end.
Не нашли ответ?
Похожие вопросы