Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ReadInteger('Введите двузначное число');
If a mod 10 > a div 10 then
Writeln('Вторая цифра числа - больше')
else
if a mod 10 a div 10 then
Writeln('Первая цифра числа - больше')
else
Writeln('Обе цифры равны');
end.