Регистрация
chudaevavera29
Есть ответ 👍

Найти среднее арифметическое квадратов всех целых чисел от a до b. (Значения a и b вводятся с клавиатуры.) (программа Паскаль)

228
461
Посмотреть ответы 2

Ответы на вопрос:

talibansky
talibansky
4,7(71 оценок)
program z1;
uses crt;
var i,a,b,n:integer;s:real;
begin
readln(a,b);
for i:= a to b do begin
s:=s+sqr(i); n:=n+1;   end;
s:=s/n;
writeln (s);
end.
danilglazkov1259
danilglazkov1259
4,5(28 оценок)

Привет!Надеюсь у тебя хорошее настроение.

Популярно: Другие предметы