Program n_5; Var a, b, c: ingeger; ans: bloolean; - вопрос №514023194 от MR3AlI 19.09.2020 16:23

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.

MR3AlI · Answer

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

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.

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.