!!ПАСКАЛЬ!!
Пишет ошибку перед 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)-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 write (z) and write (y) else if z=y then write (z);
readln;end.

1

Ответы и объяснения

2013-10-25T16:37:20+00:00
Теперь не пишет. Просто не надо в разделе объявления переменных ставить точки вместо запятых, а когда в 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.