ПОМОГИТЕ ПОЖАЛУЙСТА! ПАСКАЛЬ! ---------------------------------- Напишите программу,...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА! ПАСКАЛЬ!
----------------------------------
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, последняя цифра которых равна А и все число делится на В. Последовательность чисел заканчивается числом 0. Числа А и В вводятся до цикла.
(должен быть цикл while)

Answer 1

Var
  a, b, num, sum: integer;

begin
  readln(a, b);
  readln(num);
  while num <> 0 do
  begin
    if (num mod 10 = a) or (num mod b = 0) then
      sum := sum + num;
    readln(num);
  end;
  writeln(sum)
end.

Comments

num - это последовательность чисел?

---

вводимые числа последовательности

---

ок