Ответы на вопрос:
Var n: integer; a,b,c: byte; begin randomize; n : = random(900) + 100; writeln(n); a : = n div 100; b : = n div 10 mod 10; c : = n mod 10; writeln('сумма: ',a+b+c); writeln('произведение: ',a*b*c); end.
Популярно: Информатика
-
trolz66611.01.2020 16:38
-
ASK23103.11.2021 15:54
-
Polinakuzmina3214.12.2021 23:23
-
лох24914.12.2020 18:06
-
vlad270329p08pha20.06.2020 01:47
-
apkvava29.01.2020 03:32
-
Caxapok2405.07.2022 22:18
-
irina2000barano20.08.2021 04:45
-
Ardak12303.01.2022 11:17
-
кудряшёв09.11.2021 13:31