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