Пользователь вводит целое число, если оно больше 100, то выведите на экран
все числа от этого числа до 1, иначе же все числа от 1 до этого числа. Сделать в Pascal ABC.
все числа от этого числа до 1, иначе же все числа от 1 до этого числа. Сделать в Pascal ABC.
Answers & Comments
Ответ:
var a,i:integer; //объявляем переменную
begin
writeln('Введите число: ');
readln(a);
if (a > 100) then //проверка
for i:=a downto 1 do //проходит значения от a до 1
write(i, ' ')//выводим в одну строку
else //иначе
for i:=1 to a do //проходит значения от 1 до a
write(i, ' ');
readln(); // удерживаем консоль
end.