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

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.