Ответы
Ответ дал:
0
var
x, n, n1: integer;
begin
Writeln('Введите число: ');
Read(x);
if (x > 9) and (x < 100) then
begin
n := (x div 10) + (x mod 10);
n1 := (x div 10) * (x mod 10);
Writeln('Sum:= ', n, ' Proizved:= ', n1);
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад