Информатика. Паскаль. Дано натуральное число N. Составить программу, которая определяет, сколько цифр этого числа кратны трем. P. S т. е мало того что нам нужно определить кратность каждой цифры этого числа ина выходе получит сколько этих чисел.

Question

Информатика

Стоян

17 апреля, 13:26

Информатика. Паскаль. Дано натуральное число N. Составить программу, которая определяет, сколько цифр этого числа кратны трем. P. S т. е мало того что нам нужно определить кратность каждой цифры этого числа ина выходе получит сколько этих чисел.

+3

Ответы (1)

Знаете ответ?

Лавр · Answer 1

var

N, count:integer;

begin

write ('N = ') ;

readln (N) ;

count : = 0;

while N > 0 do

begin

if (N mod 10) mod 3 = 0 then

count : = count + 1;

N : = N div 10;

end;

writeln ('Count = ', count) ;

readln;

end.