Ввести с клавиатуры двузначное число. Из большей цифры числа вычесть меньшую.( написать программу )
Ответы
Ответ дал:
0
program one;
var a,b:integer;
begin
read(a);
if a div 10 >a mod 10 then
b:=a div 10-a mod 10
else if a div 10< a mod 10 then
b:=a mod 10-a div 10;
writeln('b = ',b);
end.
Ответ дал:
0
На паскаль особо не пишу, но кажись так нужно
Ответ дал:
0
ок, спасибо
Ответ дал:
0
Можно ещё добавить проверку на двузначное число
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад