Question

Ввести 2 числа. Если оба числа равны 5.5, то выдать их на печать, иначе удвоить число не равное 5.5. Программу Паскаль пожалуйста

Answer 1

Var
    a, b: real;

begin
    readln(a, b);
    if a <> 5.5 then a := a * 2;
    if b <> 5.5 then b := b * 2;
    writeln(a, ' ', b );
end.

Answer 2

Вот пример программы на языке Pascal, которая реализует заданное условие:

pascalCopy code
program DoubleNumber;
var
  num1, num2: real;
begin
  writeln('Введите два числа:');
  readln(num1, num2);
  
  if (num1 = 5.5) and (num2 = 5.5) then
    writeln('Числа равны 5.5: ', num1, ' и ', num2)
  else
  begin
    if num1 <> 5.5 then
      num1 := num1 * 2;
      
    if num2 <> 5.5 then
      num2 := num2 * 2;
      
    writeln('Обработанные числа: ', num1, ' и ', num2);
  end;
  
  readln;
end.

Программа запрашивает у пользователя два числа, затем проверяет, равны ли они 5.5. Если оба числа равны 5.5, то программа выводит их на печать. В противном случае программа удваивает число, которое не равно 5.5, и выводит обработанные числа на печать.