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

Answer 2

Конечно, я могу помочь вам с этим! Вот пример программы на языке Паскаль, которая решает данную задачу:

pascalCopy code
program CompareDigits;

var
  number, tens, ones: integer;

begin
  // Вводим двузначное число
  write('Введите двузначное число: ');
  readln(number);

  // Разделяем число на десятки и единицы
  tens := number div 10;
  ones := number mod 10;

  // Проверяем условие и выводим результат
  if tens > ones then
    writeln('ДА')
  else
    writeln('НЕТ');
end.

Программа сначала вводит двузначное число, затем разделяет его на десятки и единицы с помощью операций div и mod. Затем она сравнивает десятки и единицы и выводит соответствующий результат.

Убедитесь, что вы правильно вводите двузначное число, иначе программа может работать некорректно. Надеюсь, это поможет вам получить последние баллы!