Найдите и исправьте ошибки в программах. 1. var x, y, z1, z2:integer; begin write(ꞌВведите x =ꞌ);

Найдите и исправьте ошибки в программах.
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.
спросил 05 Июнь, 19 от ruruan в категории школьный раздел

решение вопроса

+7

решение вопроса

ответил 05 Июнь, 19 от Елена Краснова

Связанных вопросов не найдено

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.