Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.
Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfMultiples;
var
a, num, sum: integer;
begin
sum := 0;
writeln('Введите число a:');
readln(a);
writeln('Введите числа (для завершения введите 0):');
repeat
readln(num);
if (num mod a = 0) then
sum := sum + num;
until num = 0;
writeln('Сумма чисел, кратных ', a, ': ', sum);
end.