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

Найдите сумму квадратов всех чисел от 1 до 20 с шагом 1

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Miki201717

13.09.2021 23:57

Дано натуральное число n. найдите цифру десятков в нём. формат входных данных вводится целое число n (10? n? 2? 109). формат выходных данных требуется вывести одну цифру — десятки...

YarikPlex

09.03.2021 07:28

Не выпадает предмет в тераррии (витамины). убил уже 200 летучих поганцев (моб с которого должно выпасть), но не выпадает никак. шанс 2%. что делать? почему не выпадает? (100б)...

yanameleshko2016

29.01.2023 22:54

Дана последовательность операторов: A:=1; b:=0; While a+b 11 do Begin A:=a+1; b:=b+1; end; s:=a+b; Сколько раз выполняется тело цикла? Определите значение переменных после завершения...

анна2247

22.09.2021 08:50

Создайте процедуру, рисующую квадрат по заданным координатам центра и половине длины стороны. Выведите «коридор» из квадратов:...

Avetodor

01.05.2022 11:55

Использую команду сместиться на вектор нарисовать следующие повторяющиеся элементы. Чертите элемент (в данном случае это квадрат с ромбом, в котором есть линии), а затем через...

rusakovwn

21.08.2021 12:26

Программа оператор ввода и вывода в Pascal...

enterfight

02.12.2020 20:56

Напишите программы. 1. Дано двузначное число. Найти: а) число десятков в нем; б) число единиц в нем; в) сумму его цифр; г) произведение его цифр. 2. Даны вещественные числа a,...

кхммммм

20.04.2023 08:12

ОБЯЗАТЕЛЬНО НАРИСУЙТЕ КРУГИ!...

maksivanchuk123

06.12.2020 01:38

Подскажите, структуру программы, паскаль. Нужна программа, которая заполнит квадратную матрицу случайными числами в интервале [10,99], и найдет столбец, содержащий максимальное...

deemetraa

12.01.2021 07:20

тест Чем отличаются программируемые контроллеры от остальных устройств управления? 3. Как осуществляется преобразование информации в управляющих устройствах? 4. Где находится алгоритм...

Ответ:

AnnaVorob1999

03.10.2020 16:11

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(1.To(20).Select(x->x*x).Sum)
end.

Результат
2870

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

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

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