Question

Пользователь вводит целое число, если оно больше 30, то выведите на
экран все числа от этого числа до 20, иначе сообщите об ошибке.
Pascal

Answer 1

Ответ:

Ответ:

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.

Объяснение:

пей воду бро..

Answer 2

Ответ:

пей водурррооооооооощщщщщщщ