Предмет: Информатика,
автор: Terk
найти сумму квадратов всех целых чисел от -10 до b(b>=-10)
Ответы
Автор ответа:
0
Program summa;
Uses crt;
Var i, s,b:integer;
Begin
Write('Введите число ,b=');
Readln(b);
For i:= -10 to b do
s:=s+sqr(i);
Writeln('Сумма квадратов = ',s);
End.
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: ann29ponch