Question

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

Answer 1

Ответ:

program z;

var a,i:integer;

begin

read(a);

if a>30 then

for i:=a downto 20 do write(i,' ') else write('ошибка')

end.

Answer 2

Вот пример кода на языке Pascal, который решает вашу задачу:

pascalCopy code
program NumbersOutput;

var
  number, i: integer;

begin
  writeln('Введите целое число: ');
  readln(number);
  
  if number > 30 then
  begin
    writeln('Числа от ', number, ' до 20:');
    for i := number downto 20 do
      writeln(i);
  end
  else
    writeln('Ошибка: число должно быть больше 30.');
  
  readln;
end.

Эта программа запрашивает у пользователя целое число, затем проверяет, больше ли оно 30. Если число больше 30, то программа выводит все числа от введенного числа до 20 в порядке убывания. В противном случае программа выводит сообщение об ошибке.