Склавиатуры вводится число n найти максимальную возможность ряда следующего вида 1^2 2^2 3^3 сумма данного ряда не должна превышать введенного n. надо сделать в program. pas
166
232
Ответы на вопрос:
Var sum: real; n,i: integer; begin write('n='); readln(n); sum: =1; write('1^2 '); for i: =2 to round(sqrt(n)) do if sum+power(i,i) writeln; writeln('сумма: ',sum); end.
i изменяется от 1 до 20 с шагом 1
Объяснение:
Цикл for по переменной i имеет вид:
for i := start to end do, где i меняется от start до end с шагом 1
Популярно: Информатика
-
anastasiamrz18.06.2023 05:29
-
Bljekmessija12.12.2022 18:01
-
гогогогог30.08.2021 01:02
-
vvolkova27.11.2022 06:23
-
fac710.10.2021 13:12
-
GoldChery08.05.2022 21:17
-
Микаэла11130.03.2022 17:24
-
Arishonok33308.11.2022 18:48
-
Dildora1303.07.2021 07:36
-
Спрро23.06.2020 22:34