Решите задачу на языке Pascal.

Дано двухзначное число. Найти сумму и произведение его цифр.

Question

Леруся

20 августа, 21:44

+1

Ответы (1)

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

Рина · Answer 1

Var

a, b, c, sum, pr:longint

begin

read (a) ;

b:=a div 10;

c:=a mod 10;

sum:=b+c;

pr:=b*c;

write (sum,' ', pr) ;

end.

Решите задачу на языке Pascal.Дано двухзначное число. Найти сумму и произведение его цифр.