Вопрос, который вызвал трудности
Найдите и исправьте ошибки в программах.
1. var x, y, z1, z2:integer;
begin
write(ꞌВведите x =ꞌ);
read(x);
write(ꞌВведите y =ꞌ);
read(y);
z1:= int(x/y);
z2:= frac(x/y);
write(ꞌЦелая часть =ꞌ,z1);
write(ꞌДробная часть =ꞌ,z2);
end.
2. var x, y, z1, z2:real;
begin
write(ꞌВведите x =ꞌ);
read(x);
write(ꞌВведите y =ꞌ);
read(y);
z1:=x div y;
z2:=x mod y;
write(ꞌЦелая часть =ꞌ,z1);
write(ꞌОстаток =ꞌ,z2);
end.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
решение вопроса
