Урок 10 задача 4
Primary tabs
Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.
var a, i: integer; begin writeln('Введите целое число больше единицы: '); readln(a); for i := a downto 1 do if ((i mod 5) = 0) and (i>1) then write(i, ' ') else if a = 1 then writeln('Ошибка'); readln; end.
- Log in to post comments
- 316 reads