Question

РЕШИТЕ НА ПАСКАЛЕ ПОЖАЛУЙСТА
15.2 Напишите программу, которая в последовательности натуральных чисел определяет количество однозначных чисел,
кратных 3. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность
чисел заканчивается 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел 1000. Введенные
числа не превышают 30 000. Программа должна вывести одно число: количество однозначных чисел, кратных 3.

Answer 1

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) - выводи