Предмет: Информатика,
автор: artem161298
Составьте программу, которая определит произведение и среднее арифметическое нечетных чисел на промежутке от 5 до 80.
Ответы
Автор ответа:
0
//Pascal ABC.NET 3.1
Var
i,k:integer;
p:BigInteger;
s:real;
begin
p:=1;
for i:=5 to 80 do
begin
p:=p*i;
s:=s+i;
inc(k);
end;
writeln(p);
writeln(s/k);
end.
Var
i,k:integer;
p:BigInteger;
s:real;
begin
p:=1;
for i:=5 to 80 do
begin
p:=p*i;
s:=s+i;
inc(k);
end;
writeln(p);
writeln(s/k);
end.
Похожие вопросы
Предмет: Биология,
автор: kurbanovasabrina859
Предмет: Қазақ тiлi,
автор: bagitzanovahabiba
Предмет: Физика,
автор: roznnnnn
Предмет: Математика,
автор: pari1
Предмет: Геометрия,
автор: Аноним