Напишите программу (Pascal)

Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.

Question

Информатика

Андреич

31 октября, 12:56

Напишите программу (Pascal)

Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.

+3

Ответы (1)

Знаете ответ?

Артюха · Answer 1

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.

Напишите программу (Pascal)Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.

Напишите программу (Pascal)

Найдите сумму всех вводимых с клавиатуры чисел, кратных заданному числу а.