Question

Составить программу (Паскаль): с экрана вводим два значения и сравниваем с константой = 18 1. оба числа больше или равно 18 2. оба числа меньше 18 3. только одно число больше или равно 18

Answer 1

var a,b: real;

begin

 readln(a,b);

 if (a>=18) and (b>=18) then writeln('1') else if  (a<18) and (b<18) then writeln('2') else if (a>=18) or (b>=18) then writeln('3');

end.

Answer 2

Ниже приведена программа на языке Паскаль, которая сравнивает два введенных числа с константой 18 и выводит соответствующие результаты:

pascalCopy code
program CompareNumbers;

var
  number1, number2: integer;
  constant: integer = 18;

begin
  writeln('Введите первое число:');
  readln(number1);

  writeln('Введите второе число:');
  readln(number2);

  if (number1 >= constant) and (number2 >= constant) then
    writeln('Оба числа больше или равны 18')
  else if (number1 < constant) and (number2 < constant) then
    writeln('Оба числа меньше 18')
  else if (number1 >= constant) or (number2 >= constant) then
    writeln('Только одно число больше или равно 18')
  else
    writeln('Ни одно из чисел не соответствует условию');
end.

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

1. Если оба числа больше или равны 18, программа выводит "Оба числа больше или равны 18".
2. Если оба числа меньше 18, программа выводит "Оба числа меньше 18".
3. Если только одно число больше или равно 18, программа выводит "Только одно число больше или равно 18".
4. Если ни одно из чисел не соответствует указанным условиям, программа выводит "Ни одно из чисел не соответствует условию".