Question

(используются операции div и mod)
Дано двузначное натуральное число. Если число десятков в нём больше числа
единиц, то вывести слово «ДА», в противном случае – «НЕТ».
Написать программу на языке Паскаль. ОТДАЮ ПОСЛЕДНИЕ БАЛЛЫ,ПРОШУ ПОМОЧЬ

Answer 1

Ответ:

program qq;

var e,d,c:integer;

begin

readln(c);

d:=c div 10;

e:=c mod 10;

if d > e then writeln('Да')

else writeln('Нет');

end.

Объяснение:

d - десятки

e - единицы

11 div 10 = 1

23 mod 10 = 3