Question

Program pv4; var k, z, y, x:integer; begin writeln('введите целые числа-> x, y'); readln(x,y); if x<>y then z:=x*y writeln(z) else k:=x+y writeln(k); end. пишет, что Встречено 'else', а ожидался оператор. помогите пожалуйста!!!

Answer 1

После then begin .. твои операторы ... end else begin ..твои операторы..

Answer 2

Программа, которую вы предоставили, содержит некоторые ошибки в синтаксисе. В языке Pascal необходимо использовать операторы begin и end для группировки инструкций внутри условных операторов if-then-else. Вот исправленная версия программы:

pascalCopy code
Program pv4;
var
  k, z, y, x: integer;
begin
  writeln('введите целые числа -> x, y');
  readln(x, y);
  
  if x <> y then
  begin
    z := x * y;
    writeln(z);
  end
  else
  begin
    k := x + y;
    writeln(k);
  end;
end.

В этой исправленной версии каждая ветвь условного оператора if-then-else заключена в блок begin-end, что позволяет группировать несколько инструкций внутри каждой ветви.