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 где ошибка? она точно где-то есть,
145
265
Ответы на вопрос:
Ошибка есть и она не одна. 1. код не полностью - после else должно быть что-то еще и обязательно замыкаться end. 2. abc - не такой функции в паскале, возможно вы имели в виду abs - абсолютная величина, т.е. модуль. 3. if ab then это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab> ac
if (x1-x> 0)and(y1-y> 0)
then write('prenadlejit')
else write('ne prinad');
Популярно: Информатика
-
malishkoartem2120.12.2020 09:03
-
DOLBONAFT09.11.2021 12:53
-
Асем121118.01.2021 21:31
-
taibat304.03.2022 16:13
-
sofia220402.10.2022 01:19
-
миккимаус189067723.04.2020 20:19
-
julyaloskutowaozd80427.11.2022 16:46
-
Vladislav52524526418.05.2020 00:13
-
BNN1118.06.2021 15:57
-
san4ez7709.04.2020 06:45