Question

Встречено "Writeln" а ожидалось ";" program b; var x,y:real; begin writeln('Введите первое число'); readln(x); Writeln('Введите второе число'); readln(y); if (x>10) and (y>10) then x:=x*y writeln('Произведение числа=', x) else y:=x+y writeln('Cумма чисел=', y) end.

Answer 1

Ответ:

program b;

var x,y:real;

begin

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

readln(x);

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

readln(y);

if (x>10) and (y>10) then  

 begin  

 x:=x*y;

 writeln('Произведение числа=', x);

 end

                    else

 begin  

 y:=x+y;

 writeln('Cумма чисел=', y);

 end;

end.

Answer 2

Программа содержит несколько ошибок в синтаксисе, которые приводят к сообщению об ошибке "Встречено 'Writeln', а ожидалось ';'". Поправим программу, чтобы исправить эти ошибки:

1. В строке if (x>10) and (y>10) then x:=x*y пропущен символ точки с запятой после условия then x:=x*y;. Точка с запятой обязательна для завершения оператора.

2. В строке else y:=x+y также пропущен символ точки с запятой после оператора else. Правильно: else y:=x+y;.

3. В объявлении переменных var x,y:real; перед real пропущен символ двоеточия. Правильно: var x, y: real;.

Вот исправленный вариант программы:

pascalCopy code
program b;
var
  x, y: real;
begin
  writeln('Введите первое число');
  readln(x);
  writeln('Введите второе число');
  readln(y);

  if (x > 10) and (y > 10) then
    x := x * y
  else
    y := x + y;

  if (x > 10) and (y > 10) then
    writeln('Произведение числа=', x)
  else
    writeln('Cумма чисел=', y);
end.

Теперь программа должна корректно выполняться и выводить результат на экран.