Ответы на вопрос:
Program n1; var n,i: integer; sum: real; begin i: =0; sum: =0; readln(n); while i< =n do begin sum: =sum+i*(i+1); i: =i+1; end; write(sum); end.
Что типа такого readln(a); b: =a mod 10; a: =a div 10; writeln (a+b,a*b,b*10+a)
Популярно: Информатика
-
Ананасяя21.11.2021 19:35
-
Lop1234kop12.08.2021 21:17
-
vadkirkov20.06.2023 17:23
-
Anna56789421.07.2021 06:06
-
ekaterimazimina07.04.2022 09:15
-
2зик2027.04.2020 01:29
-
6polih104.01.2023 00:08
-
SashkaFlavki29.10.2021 16:22
-
Alusa66603.11.2020 01:41
-
mareta34011.10.2021 08:45