Question

Var x: integer; begin x:= 1000; while x>0 do begin write (x, '-7='); x:= x-7 writeln(x); delay(50); end; end. Встречено 'writeln', а ожидалось ';' , как пофиксить

Answer 1

1. Забыли ; перед Writeln(x);

2. Забыли подключить модуль CRT.

-----------------------------------------------------------

Program Brainly;

Uses CRT;

Var x: integer;

Begin

x:= 1000;

While x > 0 do begin

Write (x,'-7:= ');

x:= x - 7;

Writeln(x);

Delay(50);

end;

end.

-----------------------------------------------------------

Фрагмент программы (рисунок).

-----------------------------------------------------------

Answer 2

Код, который вы предоставили, написан на языке Pascal, и похоже, у вас есть проблема с размещением точек с запятой в операторах writeln и write. Чтобы исправить эту проблему, вам нужно правильно разместить точки с запятой после writeln и write. Вот исправленный код:

pascalCopy code
var
  x: integer;

begin
  x := 1000;
  
  while x > 0 do
  begin
    write(x, '-7=');
    x := x - 7;
    writeln(x);
    delay(50);
  end;
end.

Внимательно проверьте размещение точек с запятой после каждой инструкции, чтобы убедиться, что они расположены правильно.