Написать программу на Паскаль по нахождению суммы, произведения и количества чисел кратных 13 из отрезка от 10 до 50.

Question

Информатика

Мэрикэй

29 марта, 20:26

Написать программу на Паскаль по нахождению суммы, произведения и количества чисел кратных 13 из отрезка от 10 до 50.

+5

Ответы (1)

Знаете ответ на вопрос?

Галиаскар · Answer 1

Var i, sum, summ, count: Integer;

begin

summ:=1;

for i:=10 to 50 do

begin

if i mod 13=0 then

begin

Inc (count) ;

Inc (sum, i) ;

summ:=summ*i;

end;

end;

writeln ('Кол-во кратных: ', count) ;

writeln ('Сумма чисел: ', sum) ;

writeln ('Произведение чисел: ', summ) ;

end.