Информатика.паскаль.дано натуральное число n. составить программу, которая определяет, сколько цифр этого числа кратны трем. p.s т.е мало того что нам нужно определить кратность каждой цифры этого числа ина выходе получит сколько этих чисел.
Fatima0952006
1
18.05.2019 07:30
3
Другие вопросы по теме Информатика
ЛидияЕрулаева17
01.04.2019 21:12
anna4513
25.09.2019 03:00
vhjklv
25.09.2019 03:00
Музалевская
25.09.2019 03:00
samaya2009
26.07.2019 13:10
bulgatovanastya1
26.07.2019 13:10
Популярные вопросы
- Груз массой 2 кг, закрепленный на пружине жесткостью 400 Н/м, совершает гармонические...
3 - Назвіть регіональні організації і наддержавні утворення країн Латинської Америки....
2 - Найти неопределённый интеграл...
2 - Вынесите множитель из-под знака корня x∧7y∧7−−−−√, если x≤0, y≤0...
2 - на координатной плоскости заданы четыре точки а в с д найти разложение вектора...
2 - Очень вас с русским языком Упр 247,250,251. Заранее благодарю) />...
3 - Заполните таблицу. Задание: Прочитайте рассказ В.Шукшина «Чудики». В какие ситуации...
3 - История деревни Митениха Чкаловского района Нижегородской области...
3 - с электрической цепью, задание 3...
2 - ,небольшой тест! 1. Какие племена жили в древности на территории края? 2. Почему...
3
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.