Var a,b,c,d:integer; beginwriteln('введите длины сторон трапеции'); readln(a,b,c,d); if (a=0) or (b=0) or (c=0) or (d=0) then writeln ('нельзя') else if((a=b) or (a=c) or (a=d)) or ((b=c) or (b=d)) or (c=d) then writeln ('можно') else writeln('нельзя'); end.
0 votes Thanks 1
антагонист
во второй строке между begin и writeln пробел забыл
Answers & Comments
Verified answer
Var a,b,c,d:integer;beginwriteln('введите длины сторон трапеции');
readln(a,b,c,d);
if (a=0) or (b=0) or (c=0) or (d=0) then writeln ('нельзя')
else if((a=b) or (a=c) or (a=d)) or ((b=c) or (b=d)) or (c=d) then writeln ('можно')
else writeln('нельзя');
end.