Program n_5; Var a, b, c: ingeger; ans: bloolean;
Begin
Write ('Введите значение a, b, dl, d2>>') ;
readln (a, b, dl, d2) ;
Ans: = (a=B) and (dl<>d2) ;
Writeln ('Четырехеугольник является ромбом -', ans)
end.

Эндирионэля    1   16.10.2020 12:53    7