Question

Напишите программу, что при складывании чисел всегда было значение yes. Программа должна быть на Паскале! ДАМ 30 БАЛЛОВ!!!

Answer 1

Program yees;

var

   a: integer;

   b: integer;

begin

Writeln('Введите первое число');

read(a);

Writeln('Введите второе число');

read(b);

Writeln('yes');

end.

Answer 2

Конечно, вот пример программы на Паскале, которая всегда возвращает значение "yes" при сложении чисел:

pascalCopy code
program AlwaysYes;

function AddNumbers(a, b: Integer): String;
begin
  Result := 'yes';
end;

var
  num1, num2: Integer;
  sum: String;

begin
  WriteLn('Введите два числа для сложения:');
  ReadLn(num1, num2);

  sum := AddNumbers(num1, num2);
  WriteLn('Результат сложения: ', sum);
end.

В данной программе функция AddNumbers просто возвращает строку "yes" без каких-либо вычислений. При вводе двух чисел программа сложит их, но возвращаемое значение всегда будет "yes".