Ответы на вопрос:
Var y, k, t: integer; function fact(n: integer): integer; begin if n=1 then fact: =1 else fact: =n*fact(n-1); end; begin write('vvedi chislo: '); readln(k, t); y: = 3*fact(k)+fact(t); writeln('otvet ', y); readln; end.
Популярно: Информатика
-
nikita22o24.12.2021 06:17
-
lubas14301.05.2020 13:20
-
rrrrrrrrtttttttttyyy11.10.2020 17:37
-
fedivvasil1927.09.2021 17:17
-
nastyaxa12oziu9w06.01.2021 04:30
-
olgahenderson28.06.2020 07:41
-
яяя61103.01.2020 12:16
-
ОдУвАнЧиК0729.06.2021 00:49
-
sok609.05.2023 13:34
-
АпаснаяЯ14.10.2021 11:22