Даю много. Помогите пожалуйста.

Question

Даю много. Помогите пожалуйста.

---

Answer 1

1:

var z2:real;

x,y,z1:integer;

begin

write('Введите x = ');

read(x);

write('Введите y = ');

read(y);

z1:=x div y;

z2:=frac(x/y);

writeln('Целая часть = ',z1);

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

end.

2:

var x,y,z1,z2:integer;

begin

write('Введите x = ');

read(x);

write('Введите y = ');

read(y);

z1:=x div y;

z2:=x mod y;

writeln('Целая часть = ',z1);

write('Остаток = ',z2);

end.