Разберем оператор по шагам. Обозначим Т - промежуточный результат операции.
y:= round(y*(7 div 4) mod 7/3)/y - trunc(0.724);
1) T:= 7 div 4 ⇒ T:=1, тип T целочисленный.
2) T:=y*T, тип Т определяется типом y.
3) T:=T mod 7, в операции mod операнды могут быть только целочисленными, следовательно, тип у в 2) может быть только целочисленным, иначе мы получим на данном шаге ошибку. Результат операции - Т целочисленного типа.
4) T:=T/3; T - вещественного типа.
5) T;=round(T); T - целочисленного типа.
6) T:=T/y, T - вещественного типа.
7) Trunc(0.724)
вернет 0 целочисленного типа.
8) Т:=T-0 не изменит значения и типа Т: Т по-прежнему остается вещественным.
9) y:=T; для корректного присваивания y должен иметь вещественный тип, но это, как указано в 3), вызовет ошибку при выполнении 2).
Итог: оператор недопустим и будет отмечен ошибочным при компиляции.
<em>Д</em><em>о</em><em>р</em><em>о</em><em>г</em><em>о</em><em>й</em><em> </em><em> </em><em>п</em><em>о</em><em>л</em><em>ь</em><em>з</em><em>о</em><em>в</em><em>а</em><em>т</em><em>е</em><em>л</em><em>ь</em><em>,</em><em> </em><em>я</em><em> </em><em>п</em><em>р</em><em>о</em><em>в</em><em>е</em><em>р</em><em>и</em><em>л</em><em> </em><em><u>в</u></em><em><u>с</u></em><em><u>е</u></em><em> </em><em>с</em><em>п</em><em>о</em><em>с</em><em>о</em><em>б</em><em>ы</em><em> </em><em>и</em><em> </em><em>н</em><em>е</em><em> </em><em>н</em><em>а</em><em>ш</em><em>е</em><em>л</em><em> </em><em>т</em><em>а</em><em>к</em><em>у</em><em>ю</em><em> </em><em>с</em><em>т</em><em>е</em><em>п</em><em>е</em><em>н</em><em>ь</em><em>.</em>
<em>П</em><em>о</em><em>ж</em><em>а</em><em>л</em><em>у</em><em>й</em><em>с</em><em>т</em><em>а</em><em> </em><em>п</em><em>р</em><em>о</em><em>в</em><em>е</em><em>р</em><em>ь</em><em> </em><em>(</em><em>-</em><em>т</em><em>е</em><em>)</em><em> </em><em>с</em><em>в</em><em>о</em><em>е</em><em> </em><em>у</em><em>с</em><em>л</em><em>о</em><em>в</em><em>и</em><em>е</em><em> </em><em>(</em><em>п</em><em>р</em><em>а</em><em>в</em><em>и</em><em>л</em><em>ь</em><em>н</em><em>о</em><em>-</em><em>л</em><em>и</em><em> </em><em>о</em><em>н</em><em>о</em><em> </em><em>н</em><em>а</em><em>п</em><em>и</em><em>с</em><em>а</em><em>н</em><em>о</em><em>)</em>
<em>И</em><em> </em><em>е</em><em>с</em><em>л</em><em>и</em><em> </em><em>о</em><em>к</em><em>а</em><em>ж</em><em>е</em><em>т</em><em>с</em><em>я</em><em> </em><u>о</u><u>ш</u><u>и</u><u>б</u><u>к</u><u>а</u><em> </em><em>в</em><em> </em><em>у</em><em>с</em><em>л</em><em>о</em><em>в</em><em>и</em><em>и</em><em>,</em><em> </em><em>т</em><em>о</em><em> </em><em>н</em><em>а</em><em>п</em><em>и</em><em>ш</em><em>и</em><em> </em><em>(</em><em>-</em><em>т</em><em>е</em><em>)</em><em> </em><em>в</em><em> </em><em>к</em><em>о</em><em>м</em><em>м</em><em>е</em><em>н</em><em>т</em><em>а</em><em>р</em><em>и</em><em>я</em><em>х</em>
Каждый компьютер имеет Интернет-адрес. Но у него нет доменного имени. Оно есть только у компьютеров , состоящих в доменной сети.
Var a,s :integer;
begin
a:=0;
s:=0;
repeat
a:=a+1;
if a mod 2 = 0 then
s:=s+1;
until
a=234;
writeln('кол-во четных чисел : ',s)
end.