Напишите программу на паскале, которая 1) сначала определит по введенному двузначному числу цифру десятков и цифру единиц. 2.1) Если цифра десятков меньше цифры единиц, то программа выведет двузначное число, состоящее из. цифр единиц. по следующему примеру,: было число 15, т. к 1 меньше 5 то на вывод: число 55 ...

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

Question

Информатика

Асам

19 апреля, 20:22

Напишите программу на паскале, которая 1) сначала определит по введенному двузначному числу цифру десятков и цифру единиц. 2.1) Если цифра десятков меньше цифры единиц, то программа выведет двузначное число, состоящее из. цифр единиц. по следующему примеру,: было число 15, т. к 1 меньше 5 то на вывод: число 55 ...

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

+3

Ответы (1)

Знаете ответ?

Навиг · Answer 1

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.