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

Question

Информатика

Василей

13 октября, 22:04

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

+3

Ответы (2)

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

Руслан · Answer 1

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.

Дуклида · Answer 2

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.