Составить программу которая находит сумму и произведение n первых чисел кратных 5

Question

Информатика

Ефимия

23 апреля, 04:45

Составить программу которая находит сумму и произведение n первых чисел кратных 5

+5

Ответы (1)

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

Млада · Answer 1

Исправил

var a, b, n, i, num:integer;

begin

readln (n) ;

b:=1;

i:=5;

while num
a:=a+i;

b:=b*i;

i:=i+5;

inc (num) ;

end;

writeln (a,' ', b) ;

end.