Ответы на вопрос:
Begin m: =1; k: =1; read(n); i: =1; while i< > n do begin k: =k+i; m: =m*i; i: =i+1; end; write(k,' ',m); end. переменные, думаю, сами опишете)
Популярно: Информатика
-
Бубух15.01.2021 01:54
-
lizarepkina200418.01.2022 13:39
-
levyjigor4511.03.2023 09:57
-
nononono3j07.12.2022 05:58
-
Nikita1240925.11.2021 11:30
-
kmurtazalieva7203.04.2022 18:10
-
КривенкоЖеня13.12.2022 01:01
-
24vwyda19.11.2022 23:29
-
tyujg07.12.2022 12:25
-
pfbrfyfnfkmz31.12.2020 10:29