Напишите программу ** паскале, которая 1)сначала определит по введенному двузначному...

Question

Напишите программу на паскале, которая 1)сначала определит по введенному двузначному числу цифру десятков и цифру единиц. 2.1) Если цифра десятков меньше цифры единиц, то программа выведет двузначное число, состоящее из .цифр единиц. по следующему примеру,: было число 15, т. к 1 меньше 5 то на вывод : число 55.. 2.2) Если цифра десятков больше цифры единиц, то программа выведет двузначное число, состоящее из .цифр десятков. по следующему примеру,: было число 41, т. к 4 больше 1 то на вывод : число 44.. 3) на выходе программы нужно вывести число, на которое надо увеличить исходное . Пример: ввели число 15. получили 55. на выходе программы получим: число 40 ( 55-15 =40)

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Введите двухзначное натуральное число:');

 var (n1, n2) := (n div 10, n mod 10);

 var nn := n1 > n2 ? 10 * n1 + n1 : 10 * n2 + n2;

 nn.Println;

 (nn - n).Println

end.

Введите двухзначное натуральное число: 15

55

40

Comments

спасибо большое! вы могли бы подумать еще над этой задачей https://znanija.com/task/30194656 заранее спасибо

---

Там не над чем думать))

---

Вот если бы коробка была не прямоугольной - тогда да...

---

спасибо))

---

Пожалуйста)

Answer 2

var a:integer;

begin

readln (a);

if a div 10 = a mod 10 then

begin

writeln (a);

writeln (0)

end else

if a div 10 > a mod 10 then

begin

writeln (a div 10,a div 10);

writeln ((a div 10 + a div 10*10)-a)

end else

begin

writeln (a mod 10,a mod 10);

writeln ((a mod 10 + a mod 10*10)-a);

end

end.