Информатика.паскаль.дано натуральное число n. составить - вопрос №1455492 от Xzxzxzxzxzzxzxz 26.11.2020 02:32

Question

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

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