Дано трехзначное число.найти произведение его цифр.составить на языке паскаль (программу) желательно на тетрадьном листе.
219
434
Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1627 begin write(abs((x-> x.(real(,y)-> x*y)); end.
Var a,com: integer; begin readln(a); com: =1; while (a> 0) do begin com: = com* (a mod 10); a: =a div 10; end; writeln(com); end.
Популярно: Информатика
-
YaKrevedko125.03.2021 18:56
-
ШиноаХиираги05.08.2022 04:45
-
nam010.01.2023 08:48
-
Kracylia06.12.2021 18:56
-
verinikamusia04.10.2020 20:11
-
albina18815.03.2022 17:29
-
S1nneR6707.08.2021 17:49
-
azamaaaaa14.01.2022 18:17
-
carollabelle22.12.2020 09:05
-
никита349108.09.2021 15:59