Program n_5; Var a, b, c: ingeger; ans: bloolean; - вопрос №140227945 от samsungtaba32 29.03.2021 18:10

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.

samsungtaba32 · 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.