Задача 2 урок 10.1
Primary tabs
Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.
program zadacha2; var i, a :integer; begin writeln('Vvedite chislo: '); readln(a); if a>1 then begin for i:=a downto 1 do if (a mod 5) = 0 then write(i,' '); end else writeln ('Chislo ne verno!'); readln(); end.
- Log in to post comments
- 670 reads