Консультация № 153869
11.12.2008, 01:01
0.00 руб.
0 1 1
Нужен текст программы. Спасибо за внимание!

Приложение:
"Найти среднее арифметическоеи значение квадратов всех целых чисел из отрезка AB."

Обсуждение

Неизвестный
11.12.2008, 01:13
общий
это ответ
Здравствуйте, Yuris!
Решение вашей задачи в приложении

Приложение:
var
a,b,i,s,k:integer;
BEGIN
writeln('vvedite A');
readln(a);
writeln('vvedite B');
readln(b);
k:=0;
s:=0;
for i:=a to b do
begin
s:=s+i*i;
inc(k);
end;
writeln('srednee arifmeticheskoe kvadratov=',s/k);
readln;
END.
Форма ответа