Урок 10.1 Задача 4

Primary tabs

Submitted by Patrick on Tue, 10/25/2022 - 09:29

Forums:

Урок 10.1 Задача 4:

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

var i, a: integer;
begin
  write('Введите число: ');
  readln(a); // считываем введенное число
  if (a > 1) then // проверка введенного числа, больше ли оно единицы
    for i:=a downto 1 do // если да, цикл будет работать в обратном порядке от этого числа до единицы
      write(i, ' ') // выводим значения счетчика цикла через пробел
    else  // если нет , т.е. если введенное число не больше единицы
      write('Ошибка');  // выводим сообщение об ошибке
  readln();
end.

Вывод в консоли:

Введите число: 12
12 11 10 9 8 7 6 5 4 3 2 1

Введите число: -5
Ошибка

  • Log in to post comments
  • 1476 reads
vedro-compota's picture

vedro-compota

Sun, 10/30/2022 - 13:32

которые делятся на 5 без остатка

- уточнить

_____________
матфак вгу и остальная классика =)

Patrick

Sun, 10/30/2022 - 15:01 

var i, a: integer;
begin
  write('Введите число: ');
  readln(a); // считываем введенное число
  if (a > 1) then // проверка введенного числа, больше ли оно единицы
  begin
    for i:=a downto 1 do // если да, цикл будет работать в обратном порядке от этого числа до единицы
    begin
      if i mod 5 = 0 then  // проверка на делимость на 5 без остатка
        write(i, ' ') // выводим значения счетчика цикла через пробел
    end;
  end
  else  // если нет , т.е. если введенное число не больше единицы
    write('Ошибка');  // выводим сообщение об ошибке
  readln();
end.

Вывод в консоли:

Введите число: 321
320 315 310 305 300 295 290 285 280 275 270 265 260 255 250 245 240 235 230 225 220 215 210 205 200 195 190 185 180 175 170 165 160 155 150 145 140 135 130 125 120 115 110 105 100 95 90 85 80 75 70 65 60 55 50 45 40 35 30 25 20 15 10 5

Введите число: -17
Ошибка