Ответы на вопрос:
Var sum,n: longint; begin writeln('n=? '); readln(n); sum: =0; // основной цикл for var i: =1 to n do sum: =sum+i*i; writeln('при n=',n,' сумма квадратов первых n чисел = ',sum); end.
Популярно: Информатика
-
AsyaUkrainceva28.08.2022 16:30
-
Санчоs02.03.2021 11:34
-
Динара2223503.01.2021 13:43
-
dukto555510.09.2022 17:01
-
akakk24.10.2020 21:20
-
LOKI4611.04.2021 13:52
-
karolinamurzak01.08.2022 00:05
-
nikitos1501212.02.2021 15:24
-
lolsasafd10.07.2021 22:05
-
Христинияголовн15.05.2022 18:23