Написать программу.Даны 3 числа (a,b,c) опркделить кол-во делящихся на 5!Безотлагательно нужна

Написать программку.
Даны 3 числа (a,b,c) опркделить кол-во делящихся на 5!
Безотлагательно нужна помощь!

Задать свой вопрос
Олеся Елкасова
ты числа сам вводить должен или они данны?
Кирилл
Я написал все задание,больше ничего не дано
1 ответ

program lol;

var a,b,c,l:integer;

begin

read (a);

read (b);

read (c);

l:=0;

if a mod 5 = 0 then l:=l+1;

if b mod 5 = 0 then l:=l+1;

if c mod 5 = 0 then l:=l+1;

writeln (l);

end.

*проверил в паскале

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт