Program Z1; Var a, b, c, ab, ac ; integer; Begin Writeln ('Введите координаты А'); Readln (a); Writeln ('Введите координаты В')
Program Z1; Var a, b, c, ab, ac ; integer; Begin Writeln ('Введите координаты А'); Readln (a); Writeln ('Введите координаты В'); Readln (с); Writeln ('Введите координаты С'); Readln (c); ab:= abc (a-b); ac:= abc (a-c); if ab Writeln ('расстояние =;ab); else ГДЕ ОШИБКА? ОНА ТОЧНО ГДЕ-ТО ЕСТЬ, ПОМОГИТЕ!!!!
Ошибка есть и она не одна. 1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end. 2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль. 3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Program azazaza; var a,n,i:integer; begin for i:=1 to 10 do begin read(a); if a mod 2 = 0 then n:=n+1; end; writeln('чётных=',n); end. Это только 1-е задание