Дано четырехзначное число. Если число десятков больше чем число единиц то вывести 0 иначе 1.
Var n:integer;
begin;
readln(n);
if (n mod 100-n mod 10) div 10>n mod 10 then writeln(0) else writeln(1);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
