Question

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа. Сделать в Pascal ABC.​

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

Вот пример кода на Pascal ABC, который выполняет заданное действие в зависимости от введенного пользователем числа:

pascalCopy code
program PrintNumbers;

var
  userInput, i: Integer;

begin
  // Запрашиваем у пользователя ввод числа
  Write('Введите целое число: ');
  Readln(userInput);

  // Проверяем условие и выводим числа в соответствии с ним
  if userInput > 100 then
  begin
    for i := userInput downto 1 do
      Write(i, ' ');
  end
  else
  begin
    for i := 1 to userInput do
      Write(i, ' ');
  end;

  Readln;
end.

Этот код сначала запрашивает у пользователя ввод целого числа, затем проверяет, больше ли оно 100 или меньше. В зависимости от результата выполняется одна из двух циклов (от большего к меньшему или от меньшего к большему), чтобы вывести числа в соответствии с заданным условием.