Question

Помогите пожалуйста! Даю 25 баллов! Задача из паскаля Составьте программу, которая проверяет, одинаковы ли три введенных числа и выводит на экран соответствующее сообщение "Равны" либо "Не равны".

Answer 1

Ответ:

program z;

var a,b,c: integer;

begin

read(a,b,c);

if (a = b) and (b = c) then writeln('Равны ')

else writeln('Не равны')

end.

Answer 2

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

pascalCopy code
program CheckEquality;

var
  num1, num2, num3: integer;

begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  if (num1 = num2) and (num2 = num3) then
    writeln('Равны')
  else
    writeln('Не равны');

  readln;
end.

В этой программе мы объявляем три переменные num1, num2 и num3 для хранения введенных чисел. Затем мы сравниваем их с помощью оператора =. Если все три числа равны друг другу, то выводится сообщение "Равны". В противном случае выводится сообщение "Не равны".

Обратите внимание, что эта программа ожидает ввода трех целых чисел. Если вы хотите работать с числами с плавающей запятой или другими типами данных, вам может понадобиться изменить тип переменных и использовать соответствующие операторы сравнения (например, = для чисел с плавающей запятой).