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

Question

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

Comments

ты числа сам вводить должен или они данны?

---

Я написал все задание,больше ничего не дано

Answer 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.

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