Даны четыре целых числа. Отыскать количество чисел кратных 5. Составить программку

Даны четыре целых числа. Отыскать количество чисел кратных 5. Составить программу в паскале.Заранее спасибо!!!

Задать свой вопрос
1 ответ
Обычная реализация без массива
uses crt;
var a, b, c, d, k: Integer;
begin
readln(a, b, c, d);
clrscr;
if (a mod 5) = 0 then inc(k);
if (b mod 5) = 0 then inc(k);
if (c mod 5) = 0 then inc(k);
if (d mod 5) = 0 then inc(k);
writeln(k);
end.
Гнетнев Олег
все работает, спасибо большое!!!
Ненашев Максим
пожалуйста)
Таисия Кальцман
Только здесь 5 чисел, а не четыре
Илья Авцен
ой
Галина Леденькова
на данный момент поправлю
Vardashanskij Igor
отредактировал
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт