РЕШИТЕ НА ПАСКАЛЕ ПОЖАЛУЙСТА
15.2 Напишите программу, которая в последовательности натуральных чисел определяет количество однозначных чисел,
кратных 3. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность
чисел заканчивается 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел 1000. Введенные
числа не превышают 30 000. Программа должна вывести одно число: количество однозначных чисел, кратных 3.
15.2 Напишите программу, которая в последовательности натуральных чисел определяет количество однозначных чисел,
кратных 3. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность
чисел заканчивается 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел 1000. Введенные
числа не превышают 30 000. Программа должна вывести одно число: количество однозначных чисел, кратных 3.
Answers & Comments
https://pastebin.com/3SKN9Ygk
Язык программирования дерьмо кста
num - это переменная, которая хранит текущее введенное число.
count - это переменная, которая хранит количество однозначных чисел, кратных 3.
read(num) - это функция, которая считывает одно целое число из стандартного ввода (в данном случае это консоль).
while num <> 0 do - цикл, который будет выполняться, пока введенное число не равно 0.
if (num mod 10 = 3) and (num div 10 = 0) then - условие, которое проверяет, является ли текущее число однозначным и кратным 3. Оператор mod возвращает остаток от деления, а оператор div - целочисленное деление. Например, 7 mod 3 = 1 и 7 div 3 = 2.
count := count + 1 - увеличивает значение count на 1.
writeln(count) - выводи