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

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

Question

Информатика

Феня

2 июля, 14:02

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

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

+2

Ответы (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)

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