Напишите программу(Pascal)
Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.
Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Program n1;var sum,a,c: integer;
begin
readln(a);
sum:=0;
while true do
begin
readln(c);
if c=0 then break;
if c mod a=0 then sum:=sum+c;
end;
writeln(sum);
end.