Информатика. Паскаль. Дано натуральное число…

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

в избранное

alex_01

08 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Даны 3 числа, написать программу подсчитывающую количество отрицательных чисел и сумму неотрицательныхчисел

Робот работает с 8 до 18 часов. С 14 до 15 у него перерыв. Определить будет ли работать робот в ачасов

Составьте программу дискриминанта так, чтобы а,b, с — задавались генератором случайных чисел

Сделайте таблицу Моя библиотека включив в нее не менее 5 книг

Сколько Кбайт информации содержит сообщение объемом 2 в 21 степени бит?

Напишите пожалуйста программу в паскале, которая на ввод времени суток выводит соответствующее пожелание доброго утра…

Помогите пожалуйста! Дан массив из целых чисел

РЕШИТЕ ПОЖАЛУЙСТА! Сформировать массив множителей заданного числа. Язык программирования — паскаль

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: