Напишите программу, которая суммирует все числа в - вопрос №43211439502 от Дарья20041111 17.11.2021 13:05

Question

Информатика: Напишите программу, которая суммирует все числа в диапазоне от 4 до 32 и вычисляет их среднее арифметическое, выводит эти числа на экран в строчку и на отдельных строках выводит сумму и среднее арифметическое ОЧЕНЬ ВАЖНО! ДАМ ВЫСШУЮ НАГРАДУ

Дарья20041111 · Answer

var

S,SA:real;

i,k:integer;

begin

S:=0;

SA:=0;

for i:=4 to 32 do

begin

S:=S+i;

k:=k+1;

end;

SA:=S/k;

write('Sum = ',S,' Arithmetic mean = ',SA);

end.

Объяснение: