⇢ 
Екатерина Цветкова
PascalABC. Как сделать чтобы получилось равенство!
var a,b: real;
begin
writeln('Чему равно a ');
read(a);
writeln('Чему равно b');
read(b);
if a>b then writeln('a>b') else esle writeln('a
Ек
Екатерина
case sign(a-b) of
1: writeln('b < a');
-1: writeln('a < b');
0: writeln('a = b');
end;
Похожие вопросы