Напишите программу, которая суммирует все числа - вопрос №11439102432 от DEMON8800 02.01.2020 11:18

Question

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

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

Объяснение: