Дано: x,y,z. Вычислить количество чисел, кратных 5. Составить БСА и текст программы.

Var x,y,z:integer;
n,m,k:word;
begin
readln(x,y,z);
if x mod 5 =0 then
n:=1;
if x mod 5<>0 then
n:=0;
if y mod 5 = 0 then begin
m:=1;
m:=n+m;
end;
if y mod 5 <> 0 then begin
m:=0;
m:=n+m;
end;
if z mod 5 =0 then begin
k:=1;
k:=k+m;
end;
if z mod 5 <> 0 then begin
k:=0;
k:=k+m;
end;
writeln(k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.