var a,b,c: integer;
begin
readln(a);
b:= a mod 10;
a:= a div 10;
c:= a+b;
a:=a*b;
writeln('Результат сложения = ',c);
writeln('Результат умножения = ',a);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напиши программу, в которой будут вычислены сумма и произведение цифр двузначного числа.
var a,b,c: integer;
begin
readln(a);
b:= a mod 10;
a:= a div 10;
c:= a+b;
a:=a*b;
writeln('Результат сложения = ',c);
writeln('Результат умножения = ',a);
end.