Информатика.паскаль.дано натуральное число n. составить - вопрос №1454590 от Судзуми777 30.05.2020 22:10

Question

Информатика: Информатика.паскаль.дано натуральное число n. составить программу, которая определяет, сколько цифр этого числа кратны трем. p.s т.е мало того что нам нужно определить кратность каждой цифры этого числа ина выходе получит сколько этих чисел.

Судзуми777 · Answer

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....