Задача 2 Урок 10.1
Primary tabs
Пользователь вводит целое число, если оно больше единицы, то выведите на экран
все целые числа от этого числа до единицы (в обратном порядке), которые делятся
на 5 без остатка. Иначе (если введённое пользователем число не больше единицы)
сообщите об ошибке.
var i, a: integer; begin writeln('Vvedite chislo bolshe 1'); readln(a); if (a > 1) then begin for i := a downto 1 do begin if ((i mod 5) = 0) AND (a > 1) then write(i, ' ') ; end; end else if (a < 1) then writeln('Oshibka: vedite chislo bolshe 1'); readln(); end.
КОНСОЛЬ
Vvedite chislo bolshe 1 15 15 10 5
- Log in to post comments
- 773 reads