Задача1

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

uses crt;

var a, a1, a2:integer;

begin

write ('Введите двузначное число: ');

readln (a);

a1:=a div 10;

a2:=a mod 10;

writeln ('Сумма цифр числа ', a,' равна ', a1+a2,', произведение равно ', a1*a2);

end.

program kugjmgv;

uses crt;

var a, a1, a2:integer;

begin

ClrScr;

write ('Введите двузначное число: ');

readln (a);

a1:=a div 10;

a2:=a mod 10;

writeln ('Сумма цифр числа ', a,' равна ', a1+a2,', произведение равно ', a1*a2);

end.