Найдите и исправьте ошибки в программах: Var x,y,z1,z2: integer Begin Write(x);- нужно...

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.