Ответы на вопрос:
Procedure s(n,ans: integer); begin if n< > 0 then begin ans: =ans+n+n-1; s(n-1,ans); end else writeln(ans); end; вот пример всем программыprogram znanijatop; const null = 0; procedure s(n,ans: integer); begin if n< > 0 then begin ans: =ans+n+n-1; s(n-1,ans); end else writeln(ans); end; var n: integer; begin writeln('vvedite n'); readln(n); s(n,null); end.
Популярно: Информатика
-
sashik200517.02.2023 12:55
-
лолер204.07.2021 21:59
-
Макоська06.01.2021 12:34
-
Rita21060621.07.2022 22:23
-
Kolelove05018.04.2023 03:04
-
hovrashok27.04.2023 04:06
-
Вика200303309.06.2023 10:49
-
toguzov200516.08.2022 11:23
-
kaznacheev27p070e212.02.2022 08:50
-
Fjkskdnxk29.11.2022 05:07