Нужна найдите ошибки в программе: programm qq; uses crt; var x , y: integer; z: real begin x : = 1; y : = 2; z : = -1.75; if x (знак меньше или равно) y then x : = z; else x : = z; if x (перечеркнутое равно/не равно) y then y : = z + 1; for i = 1 to 8 do begin f : = (x - y) / i ; written (f); end;

КлубникО    3   16.04.2019 22:42    1