Ответы на вопрос:
Var x,y: word; begin writeln('введите число'); readln (x); y: =1; while y< > 0 do begin x: =x*y; writeln('произведение равно =',(x)); writeln('введите число'); readln(y) end; end.
Популярно: Информатика
-
persik2178308653215.07.2021 15:49
-
НуриманН12.11.2022 04:06
-
kkkkk2417.04.2022 05:50
-
64bl9j803.08.2020 08:53
-
SofiaFedirko25.03.2020 01:20
-
рената123930530.05.2023 13:21
-
dima035488810.11.2020 11:59
-
an2015tep071hf16.06.2020 19:55
-
chinenko8807.05.2022 19:32
-
unikornio29.09.2020 12:26