Информатика.паскаль.дано натуральное число n. составить - вопрос №1455492 от sonjasonjasonja 19.03.2020 23:07

Question

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

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