tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напиши программу. дано
Напиши программу. дано целое число n (n > 0). найти сумму (n + 1)^2 + (n + 2)^2 + … + (2•n)^2 входные данные: ввести целое число n (1< =n< =10). выходные данные: вывести сумму (n + 1)^2 + (n + 2)^2 + … + (2•n)^2 (получим целое число.)
lsllalap
3 26.08.2019 05:10
1
Ответы
mashuljka33
05.10.2020 20:22
Var
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vzorr
18.05.2020 14:41
Запишіть у зошит коротенький приклад HTML сторінки .приклад повинен містити зображення та гіперпосилання...
kris411
18.05.2020 14:41
Информатика тест надо решитьhttps://onlinetestpad.com/holybpzlk3wv4...
сумка228hjfjkjihjjj
18.05.2020 14:41
Запишіть призначення функції FloatToStr 1) Перетворює ціле число на рядок 2) Перетвоює дійсне число на рядок 3) Перетворює рядок на ціле число 4) Перетворює рядок...
Бебка228
31.03.2019 13:34
Xyinya ebanaya dlya aytistov blyat, odni чсвhniki kotorie pizdyat vse s interneta, a otvet sami ne mogyt naiti i blyat yebivaetsa ot syda naxyi...
1ТекуОтОтветов
31.03.2019 13:32
Дана программа на языке паскаль: program a2; var a, b, c, min: real; beginwriteln ( введите три числа ); readln (a, b, c); min: =a; if bif cwriteln( min= , min)endчто...
Toichievakumis2
06.07.2019 01:40
Нужно измерить информационный объем книги. в книге 9 страниц, на каждой странице 55 строк и в каждой строке 70 символов. ответ записать в байтах. ) проверьте правильно...
SosaLegor312lok
06.07.2019 01:40
Доступ к файлу pic.bmp, находящемуся на сервере aaa.ua, осуществляется по протоколу ftp. в таблице фрагменты адреса файла закодированы буквами от а до ж. запишите...
Максим5955
07.12.2020 18:21
Какие различия имеются между графическими редакторами Paint и SketchUp...
Catania2
07.12.2020 18:21
ТЕКСТ ЗАДАНИЯ Дана таблица Счет к оплате . Определите формат (тип данных) ячеек А2:A7. 10 A B С D 1 Товар | Количество Цена общая стоимость 2 Сдобные булочки 130...
Danilove5
01.10.2019 16:40
Дана кодовая таблица азбука морзе расшифровка следующие записи...
Популярные вопросы
Какие факты по мнению автора текста свидетельствует о том что...
2
сумма 2 углов соответствующие стороны которых параллельные 165...
1
Какую награду получил Тёркин за сбитый самолёт? ...
2
6. Докажи словами или выражениями из текста. Используй памятку....
1
Упростите выражение 0,7x+4,8у -0,1х-2,1у надо ...
1
К. Дебюсси «Празднества». Что вы услышали? Какие образы вы представили?...
2
Алые паруса 1) Как называется корабль, капитаном которого является...
2
Выполните задания на скриншоте...
1
L 9-x l 2 решите уровнени ...
3
 Как называют специалиста- зоолога который занимается изучением...
3
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.