Ответ:
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.