tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу,
Напишите программу, вычисляющую сумму квадратов от 1 до n. на abc паскале
zlatakadochnik
1 28.07.2019 14:40
1
Ответы
Эльза132004
31.08.2020 01:25
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var n:=ReadInteger('n=');
Writeln('Сумма квадратов от 1 до ',n,' равна ',
1.To(n).Select(x->x*x).Sum)
end.
Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
suxelena
10.02.2022 04:27
Кто знает как так сделать? Что за программа? Даю 50б...
RedFoxTR
10.02.2022 04:25
A) * 9. Соотнесите знаки арифметических операций: 1) возведение в степень B) / 2) умножение C) % 3) деление D) // 4) остаток от деления E) 5) целая часть от деления...
5628462847
10.02.2022 04:25
С++ Дано масив A розміру N і ціле число K (1 K N). Перетворити масив, збільшивши кожен його елемент на вихідне значення елемента AK....
спасибо88
10.02.2022 04:23
По шестнадцатеричной форме внутреннего представления целого числа в 2-х байтовой ячейке восстановить само число. (F67D)...
Alina29052006
17.09.2019 10:50
Что позволяет делать графический редактор? а) создавать текстовые области б) распознать структуру размещения текста на странице в) осуществить преобразования изображений г) редактировать...
dadamuhamedovag
26.09.2021 04:01
28. Цифровой датчик измеряет температуру процессора (в градусах Цельсия, от 20° до 140°) и сохраняет её в памяти в двоичном коде в виде целого числа. Какова минимальная длина двоичного...
Deer22
26.09.2021 03:52
Какие игровые проекты можно создать с рисунков, представленных ниже? Предложите идею игры. Составьте словесный алгоритм предложенной игры....
diasj5kz
16.02.2022 14:20
Дано рядок розділений пробілами знайти кількість слів...
whitehawk1508
16.02.2022 14:19
, по типу такой программы Var x:integer; begin X:=-3;IF X 0 THEN X:=x+2ELSE X:=x*2;X:=1;writeln(x); End....
Anonim223332
16.02.2022 14:13
ОЧЕНЬ НУЖНО! Какое служебное слово на языке Паскаль используется для свекла тела которого может не выполнитья ни разу? For Until While Repeat...
Популярные вопросы
Open the brackets using the Passive voise: This article (to write) already by my...
1
очень Решить с СИСТЕМ УРАВНЕНИЙ! Турист преодолел расстояние в 29 км. 2 часа он...
1
Почему роман имеющий 3 сюжетных линии называется мастер и маргарита...
3
1. Смежные стороны параллелограмма равны 32 см и 26 см, а один из углов равен 150...
2
Яка пара чисел є розв язком системи {x+4y=8 {3x-y=11?...
3
Яка група живих істот найчастіше є одноклітинними організмами...
1
Определите координаты отметев на рисунке 9 точек НУЖНО...
2
Розкрити дужки і звести подібні доданки 2(3х-4у)+3(2х-2у)...
1
Их двух городов, расстояние между которыми 1092 км, одновременно навстречу друг...
2
Задание №3. с. 106 Запиши геометрическую задачу. Реши её. Давайте составим алгоритм...
2
begin
var n:=ReadInteger('n=');
Writeln('Сумма квадратов от 1 до ',n,' равна ',
1.To(n).Select(x->x*x).Sum)
end.
Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180