Вычисляется среднее арифметическое первых 50 НАТУРАЛЬНЫХ чисел. var i,s: integer; begin s:=0; for i:=1 to 50 do s:=s+i; writeln('s = ',s/50:4:1); end.
Результат: s = 25.5
Или так: // Сумма первых n членов арифметической прогрессии S=(a1+an)/2*n // Среднее арифметическое = S/n = (a1+an)/2 begin writeln((1+50)/2:4:1); end.
Answers & Comments
Verified answer
Вычисляется среднее арифметическое первых 50 НАТУРАЛЬНЫХ чисел.var i,s: integer;
begin
s:=0;
for i:=1 to 50 do s:=s+i;
writeln('s = ',s/50:4:1);
end.
Результат:
s = 25.5
Или так:
// Сумма первых n членов арифметической прогрессии S=(a1+an)/2*n
// Среднее арифметическое = S/n = (a1+an)/2
begin
writeln((1+50)/2:4:1);
end.
Verified answer
//PascalABC.NET//Версия 3.3, сборка 1634
begin
//предполагаются первые 50 натуральных чисел
write('срзнач: ',range(1,50).Average);
end.