Pascal abc, дано целое число n (> 0). найти сумму n2 + (n + 1)2 + (n + 2)2 + (целое число). решить через repeat
Aldatik
2
19.07.2019 15:20
0
Другие вопросы по теме Информатика
АняГоловко0208
19.08.2019 03:50
katerok23092000
19.08.2019 03:40
арина1376
19.08.2019 03:40
arinashabalina1
19.08.2019 03:40
YourTeaa
19.08.2019 03:40
DizzyWarriorr
19.08.2019 03:40
Ctatuetca
19.08.2019 03:40
эльвинчик2
19.08.2019 03:40
baukinakatya
19.08.2019 03:40
Популярные вопросы
- Объясните почему большинство цветовых растений размножаются как семейным...
2 - Цитатный план фрагмента Степь А.П.Чехова...
2 - хочу взять новую видеокарту GeForce GTX 1660 Ti на 8 гб и процессор...
2 - придумайте и запишите с картинкам метафору и сравнение краска и человек...
2 - В правильной четырехугольной пирамиде SABCD точка О - центр основания,...
2 - за урок Задание 1 опишите компоненты природного комплекса своей местности...
3 - . Ряд в котором дается правильный набор обитателей экваториального...
2 - Под какими цифрами приложение...
2 - B 1)Девиз нового правительства США в 20 годы 20 века? 2)Символ американской...
2 - Найдите асимптоты графика функцийf(x)=x²-1/5-x...
1
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.