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