Напишите программу, которая суммирует все числа - вопрос №11440004432 от Tawerpro 01.09.2020 15:32

Question

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

Tawerpro · 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.

Объяснение: