Дз по информатике, хэлп

var i: integer;
procedure f();
var s:integer;
begin
read(s);
if s mod 5 = 0 then i:=i+1
end;
begin
n:=0;f();f();f();
end.

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.

Удачи!

язык? C#, C++?

program mas;

uses crt;

var a, b, c, k: integer;

begin

writeln(Введите три числа);

readln(a);

readln(b);

readln(c);

for i:=1 to 3 do begin

if (i mod 5 = 0) then k:=k+1;

end;

writeln(Делящихся на 5,k);

readln;

end.

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.

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.

program mas;

uses crt;

var a, b, c, k: integer;

begin

writeln(Введите три числа);

readln(a);

readln(b);

readln(c);

for i:=1 to 3 do begin

if (i mod 5 = 0) then k:=k+1;

end;

writeln(Делящихся на 5,k);

readln;

end.
с тебя лайк

program mas;

uses crt;

var a, b, c, k: integer;

begin

writeln(Введите три числа);

readln(a);

readln(b);

readln(c);

for i:=1 to 3 do begin

if (i mod 5 = 0) then k:=k+1;

end;

writeln(Делящихся на 5,k);

readln;

end.

согласен

*SlOWPOK*

Для начала назови язык программирования?

Вот веришь или нет, у нас нет информатики)..

а какой язык?
задаешь переменную
потом через цикл фор прибавляешь к этой переменной то что делится на 5, выводишь переменную

Вам задают дз по информатике?!?! Мы в сейчас в восьмом классе и на уроках максимум рисуем в пейнте.