Question

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.

Answer 1

Ответ:

ты на 3 столбике не открыл в команде двойную << штучку так оно не сработает и в предпоследней строчке