Войти Регистрация Спроси ai-bota

Найти сумму квадратов всех натуральных чисел от 1 до 100

Ответ:

aleksa604

03.10.2020 07:48

Var i,n : Integer;
Begin
n:=0;
For i:=1 to 100 do n:=n+sqr(i);
Writeln(n);
end.

Результат: 338350

0,0(0 оценок)

Популярные вопросы: Информатика

777sofia777

25.07.2022 03:47

Даны четыре целых числа.определить сумму тех из них,которые кратны трём.составить программу в паскале.заранее !...

liq2354234

25.07.2022 03:47

Что такое множество, как оно описывается в языке pascal?...

egorkovalev000007

02.09.2020 08:47

Название производимого продукта называется...

ефим30

21.11.2020 18:39

Обж! какие происшествии могут произойти в авиационном транспорте?...

ЕнотОбормот

21.11.2020 18:39

Написать программу на паскале (цикл с параметром) напишите программу, подсчитывающую количество чисел из промежутка от 2 до 50, кратных 5 и 8, а также выводящую эти числа....

Vadim200129

21.11.2020 18:39

Скорость передачи данных по некоторому каналу связи равна 32 кбит в секунду .передача текстового файла по этому каналу связи заняла 15 секунд . определите сколько страниц содержал...

23вопрос4

25.04.2021 18:18

Игорь составляет таблицу кодовых слов для передачи сообщений,каждому сообщению соответствует свое кодовое слово. в качестве кодовых слов игорь использует 5-буквенные слова,в которых...

Новичок301117

16.08.2020 15:51

Дан треугольник со стороной a и прилежащими углами y и b. вычислить площадь треугольника, найти остальные стороны и угол между ними. написать в паскале...

helenodecca

19.04.2021 04:08

Какое устройство компьютера обрабатывает информацию? а) монитор, клавиатура, сканер б) сканер, клавиатура, микрофон в) монитор, принтер, мышка г) принтер, клавиатура, сканер...

andreylishtaev

19.04.2021 04:08

Найти объем видеопамяти с разрешающей экрана 1152 на 864 точек и глубиной цвета 16 битов...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку