Тут надо выбрать правильно записанный фрагмент,в А нет ошибок,в Б (Y=Y*K;),а оператор присваивания это (:=).<span>В С точка с запятой не ставится после Do и после Begin.В D K:=1 do 50(будет 50 повторений,а надо 15) и Y=Y*K.</span>
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
¬(A /\ ¬B) \/ ¬C ⇒ ¬A \<span>/</span> B \/ ¬C
Циклическим называется алгоритм,предусматривающий повторения одних и тех же действий в зависимости от условия итераций.