program grg;
var x: integer;
begin
readln(x);
if (x div 10) > (x mod 10) then
x := (x div 10) + (x mod 10);
writeln(x)
end
else writeln((x div 10), (x mod 10)*2);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Задача Дано двузначное число. Если первая цифра больше второй, то вычислить сумму цифр, если нет увеличить вторую цифру в 2 раза. Вывести результат.
program grg;
var x: integer;
begin
readln(x);
if (x div 10) > (x mod 10) then
begin
x := (x div 10) + (x mod 10);
writeln(x)
end
else writeln((x div 10), (x mod 10)*2);
end.