Напишите программку которая в последовательности целых чисел определяет количество трехзначных

Напишите программу которая в последовательности целых чисел определяет количество трехзначных чисел кратных 7

Задать свой вопрос
1 ответ

Можешь не благодарить

var

a,n:integer;

begin

readln(a);

while alt;gt;0 do

begin

if (a mod 5=0)or (a mod 7=0)then inc(n);

readln(a);

end;

writeln(n);

end.

Геннадий Яровицкий
Все равно спасибо)
Гонобина Оксана
Та не за что)
Арсений Калабухов
я еще одно задание не могу выложить, поэтому что баллов не хватает(
Витя Табидзе
печалька(
Аделина Соломатникова
я теснее все, задал вопрос и сдал)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт