Вот держите:
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
Вместо Х там должно быть 2
Смотря какой файл, текстовый txt
Противоречащий - при решении квадратного уравнения получаются 2 корня, но каждый уравнение решений не имеет
Противоположный - дождь - это когда на улице сухо
Ну а дальше по аналогии