Даны два целых числа a и в. выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае

olka52 olka52    3   31.05.2019 10:40    2

Ответы
artemushakov0артем artemushakov0артем  01.07.2020 22:15
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика