Question

Найдите ошибки
Program pr3;
var w, w1: integer;
Readln (w);
z:w/w1;
Writeln (w1);
End.​

Answer 1

Думаю, тебе нужно это:

Program pr3;

var w, w1, z: real;

begin

writeln('Введите w');

Readln(w);

writeln('Введите w1');

Readln(w1);

z:=w/w1;

Writeln(z);

end.