Ответы на вопрос:
// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin var x: =readinteger('x='); var s: =0; var x3: integer; range(1,x).foreach(t-> begin x3: =t*t*t; writeln(t: 3,'^3',x3: 10); s+=x3 end); writeln('итого: ',s: 9) end. пример x= 10 1^3 1 2^3 8 3^3 27 4^3 64 5^3 125 6^3 216 7^3 343 8^3 512 9^3 729 10^3 1000 итого: 3025
Популярно: Информатика
-
Gutlock30.07.2021 13:18
-
SuperGirl111146823.08.2022 04:16
-
enindanila2429.04.2021 07:52
-
Kirill081210.04.2020 05:55
-
Лена3679323.06.2023 19:05
-
666666ник28.10.2021 09:31
-
АннаШпак17.02.2023 04:45
-
петя21225.12.2021 10:17
-
ушкаа01.06.2020 17:57
-
rama2518.02.2021 04:10