Question

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

Answer 1

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.

Answer 2

спасибо огромное)))