Напишите программу на паскале, которая 1)сначала определит по введенному двузначному числу цифру десятков и цифру единиц. 2.1) если цифра десятков меньше цифры единиц, то программа выведет двузначное число, состоящее из .цифр единиц. по следующему примеру,: было число 15, т. к 1 меньше 5 то на вывод : число 55.. 2.2) если цифра десятков больше цифры единиц, то программа выведет двузначное число, состоящее из .цифр десятков. по следующему примеру,: было число 41, т. к 4 больше 1 то на вывод : число 44.. 3) на выходе программы нужно вывести число, на которое надо увеличить исходное . пример: ввели число 15. получили 55. на выходе программы получим: число 40 ( 55-15 =40)
jroslov
1
30.09.2019 18:02
2
Другие вопросы по теме Информатика
ВладимирЛенин1
01.04.2020 11:16
ждл1
03.06.2019 02:50
i942627
03.06.2019 02:50
Ḱặрặṃềӆьҟӑ
03.06.2019 02:50
Arx
03.06.2019 02:50
Catlove333
03.06.2019 02:50
IDONTNONOTHING
03.06.2019 02:50
lenasinyikovich
03.06.2019 02:50
gambab
03.06.2019 03:00
Популярные вопросы
- Определите среднесуточную температуру, используя данные,время измерения...
2 - X^2-11+p=0 x1=-4 найти x2 и p...
1 - Как изменялась температура идеального газа в процессе, график которого...
3 - Рассмотрите часы на рисунке. Какое время они показывают? В каком стиле...
3 - Математика очень умоляю вас кому не сложно...
3 - На дереве сидело несколько красных и несколько зеленых хамелеонов, а...
3 - Себеп салдар салалас сойлемдерди томендеги улги бойынша себеп багынынкы...
2 - Продолжение Текст, в профиле в вопросах ...
2 - Do the quiz. Mark the sentences as T or F 6 класс 64 стр...
3 - Друг мой! Хочю поделиться с тобой своими мыслями сегодня. Я всё более...
3
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.
Введите двухзначное натуральное число: 155540var 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.