Задача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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
