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

Question

Информатика

Виленин

12 августа, 23:24

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

+2

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