Между Вес и Дым можно прямую поставить, но я сделал круговую, чтобы не путаться
Различные windows быстрей и лучше работает.
Светлана: 1→¬(1+0)=1→¬1=1→0=0;
Анатолий: 1→¬(0+1)=1→¬1=1→0=0;
Римма: 0→¬(1+0)=0→¬1=0→0=1;
Дмитрий: 1→¬(1+0)=1→¬1=1→0=0;
Ответ: Римма
Здесь достаточно одного условного оператора:
if X>Y then max:=X else max:=Y;
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.