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

Question

Информатика

Маруха

6 марта, 15:06

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

+4

Ответы (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.