< >

составить программу нахождения суммы квадратов чилел от 1 до 100

Ответы

Ответ дал: zede
0

program r;

var a:longint;
i:byte;
begin
a:=0;
for i:=1 to 100 do a:=a+sqr(i);
writeln(a);
end.

Похожие вопросы
Русский язык
2 года назад
Какие слова можно образовать от слова Автозаводской? Заранее спасибо..
Қазақ тiлi
2 года назад
помогите пожалуиста написать письмо дальнему другу
Музыка
7 лет назад
написать 5 примеров романсов+ композитор+ автор текста и название Спасите!!!! Училка очень злая!
Математика
7 лет назад
К числу 8 прибавить разность чисел 12 и 3
Алгебра
10 лет назад
выберете из числа 14,21,31,42,51,63,68,75.те которые а) кратны 7; б) кратны17; в) не кратны 8; г) не кратны 2.
Математика
10 лет назад
как решить уравнение 594:(8x-55)=18
Алгебра
10 лет назад
Решите пожалуйста: Катер с собственной скоростью 30 км/ч проплыл 3 часа по течению реки и 6 часов против течения.Весь путь катера составил 261 км.Найдите скорость течения реки.
Алгебра
10 лет назад
ЗАПИШИТЕ ВЫРАЖЕНИЯ В ВИДЕ ДРОБИ: 1)а:7 2)(a+b):5 3)5:а