! ПАСКАЛЬ! Пишет ошибку перед and!

! ПАСКАЛЬ! Пишет ошибку перед and! uses crt; var a,b,c,s,x.z.y.w, n: real; begin clrscr; write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); s: =sqr (b) -4ac; z: =(-b)+sqrt (s) /2a; y: =(-b) -sqrt (s) /2a; w: =(-b) /2*a; if s<0 then write (n) else if s=0 then write (w) else if s>0 then write (z) and write (y) else if z=y then write (z); readln; end.

в избранное

fiedor

23 февраля 2023

Теперь не пишет. Просто не надо в разделе объявления переменных ставить точки вместо запятых, а когда в if вставляешь группу операторов, их надо заключать в операторные скобки (begin… end) uses crt; var a,b,c,s,x,z,y,w, n: real; begin clrscr; write ('a='); readln (a); write ('b='); readln (b); write ('c='); readln (c); s: =sqr (b) -4*a*c; z: =(-b)+sqrt (s) /2*a; y: =(-b) -sqrt (s) /2*a; w: =(-b) /2*a; if s<0 then write (n) else if s=0 then write (w) else if s>0 then begin write (z); write (y); end else if z=y then write (z); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?