Найти и вывести на экран количество трехзназных чисел ,которые делятся 3

Определить и вывести на экран количество трехзназных чисел ,которые делятся 3 , 5 и 7 одновременно

Задать свой вопрос
1 ответ
Program z1;
var i,k :integer;
begin
k:=0;
for i:=100 to 999 do
if (i mod 3=0) and (i mod 5=0) and (i mod 7=0) then
k:=k+1;
writeln(k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт