Напишите программу на паскале, которая 1)поначалу обусловит по введенному двузначному числу
Напишите программку на паскале, которая 1)поначалу обусловит по введенному двузначному числу цифру 10-ов и цифру единиц. 2.1) Если цифра 10-ов меньше числа единиц, то программа выведет двузначное число, состоящее из .цифр единиц. по последующему примеру,: было число 15, т. к 1 меньше 5 то на вывод : число 55..
2.2) Если цифра десятков больше числа единиц, то программка выведет двузначное число, состоящее из .цифр 10-ов. по последующему примеру,: было число 41, т. к 4 больше 1 то на вывод : число 44.. 3) на выходе программки необходимо вывести число, на которое надо увеличить начальное . Пример: ввели число 15. получили 55. на выходе программы получим: число 40 ( 55-15 =40)
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 gt; n2 ? 10 * n1 + n1 : 10 * n2 + n2;
nn.Println;
(nn - n).Println
end.
Введите двухзначное естественное число: 15
55
40
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 gt; 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.