Среди чисел a, b, c определить количество чисел кратных 3.
Помогите, пожалуйста, написать программу для Turbo Pascal или просто алгоритм.

Var a,b,c,k,i:integer;
begin
k:=0;
read(a,b,c);
if a mod 3 = 0 then k:=k+1;
if b mod 3 = 0 then k:=k+1;
if c mod 3 = 0 then k:=k+1;
writeln(k);
end.

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