Задача 2 Урок 10.1
Primary tabs
Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.
var i,k:integer; begin write('Vvedite celoe chislo: '); readln(i); if (i>1) then begin for k:=i downto 1 do if(k mod 5 = 0) then write(k,' '); end else writeln('Vashe chislo sloshkom malo'); end.
Консоль 1:
Vvedite celoe chislo: 67 65 60 55 50 45 40 35 30 25 20 15 10 5
Консоль2:
Vvedite celoe chislo: 1 Vashe chislo sloshkom malo
- Log in to post comments
- 500 reads