Question

РЕБЯТА, ПОЖАЛУЙСТА УМОЛЯЮ ПОМОГИТЕ ЭТО ПРОВЕРОЧНАЯ НУЖНО ОЧЕНЬ СРОЧНО!!! РЕШИТЕ КАК МОЖНО СКОРЕЕ!!!
БУДУ ОЧЕНЬ БЛАГОДАРНА!!!

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех

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

введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания

ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не

превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и

оканчивающихся на 9.

Пример работы программы:

Входные данные Выходные данные

16

29

56

9

39

0

48​

Answer 1

var

   n, sum: integer;

begin

  sum := 0;

  read(n);

  while n <> 0 do

  begin

    if (n mod 3 = 0) and (n mod 10 = 9) then

      sum := sum + n;

    read(n);

  end;

 

  write(sum);

end.