Вывести на экран сумму и произведение цифр целого двузначного случайного числа.

Question

Информатика

Василей

5 ноября, 02:36

Вывести на экран сумму и произведение цифр целого двузначного случайного числа.

+2

Ответы (2)

Знаете ответ на вопрос?

Дуклида · Answer 1

Program n1;

var a, p, sum: integer;

begin

randomize;

a:=random (90) + 10;

writeln ('исходное число: ', a) ;

sum: = (a mod 10) + (a div 10) ;

p: = (a mod 10) * (a div 10) ;

writeln ('сумма: ', sum) ;

writeln ('произведение: ', p) ;

end.

Руслан · Answer 2

Program prog;

Uses crt;

var n: integer;

begin;

clrscr;

randomize;

n: = random (90) + 10;

writeln (n) ;

writeln ('Sum = ', (n mod 10) + (n div 10)) ;

writeln ('Prod = ', (n mod 10) * (n div 10)) ;

end.