Среди чисел a, b, c определить количество чисел кратных 3.
Помогите, пожалуйста, написать программу для Turbo Pascal или просто алгоритм.
Ответы на вопрос
Ответил PopCop312
0
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.
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.
Ответил AnnaI16
0
спасибо огромное)))
Новые вопросы
Русский язык,
2 года назад
Қазақ тiлi,
2 года назад
Литература,
9 лет назад
Алгебра,
9 лет назад
Алгебра,
9 лет назад