Найдите и исправьте ошибки в программах:
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.
Ответы на вопрос
Ответил ingr
0
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.
Новые вопросы