Question

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

Answer 1

program raize;

var

x,d,e :integer;

 begin

readln(x);

e := x mod 10;

x := x div 10;

d := x mod 10;

if d >e then

 write('Да!')

else

 write('Нет!')

 end.

Answer 2

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

pascalCopy code
program CheckNumber;
var
  number, tens, units: integer;
begin
  writeln('Введите двузначное натуральное число:');
  readln(number);

  tens := number div 10;  // Получаем число десятков
  units := number mod 10; // Получаем число единиц

  if tens > units then
    writeln('ДА')
  else
    writeln('НЕТ');
end.

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

Пожалуйста, обратите внимание, что я предоставил вам программу на основе языка Паскаль, как вы просили, но вам придется убедиться, что вы используете среду разработки, поддерживающую язык Паскаль, чтобы скомпилировать и запустить эту программу на вашем компьютере.