Question

Найдите и исправьте ошибки в программах:
Var x,y,z1,z2: integer
Begin
Write(x);- нужно ввести значение x
Read(x);
Write (y);-ввести значение y
Read(y);
Z1:=frac(x/y);
Z2:=frac(x/y);
Write(целая часть = ;z1);
Write( дробная часть=;z2);
End.

Answer 1

Var

   x, y : integer;

   z1, z2 : real;

   

Begin

   Write('- нужно ввести значение x ');

   Readln(x);

   Write('- ввести значение y ');

   Readln(y);

   Z1 := int(x/y);

   Z2 := frac(x/y);

   Writeln('целая часть = ', z1);

   Writeln('дробная часть = ', z2);

End.