Предмет: Информатика,
автор: adikaddkk
На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3
Ответы
Автор ответа:
6
Вот держите:
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
Похожие вопросы
Предмет: Биология,
автор: viktoriakolesnik290
Предмет: Биология,
автор: pustota15
Предмет: Русский язык,
автор: GerryDak
Предмет: Геометрия,
автор: marinadark
Предмет: Геометрия,
автор: ankakundas