Var
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
<u>Пример</u>
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
<u>Пример</u>
7 2
m=7, n=7
B:=32(после вычисления);
a:=32(после вычисления);
Если ты все-все напишешь здесь сам,без рисунка,то я отвечу)
Нужно в начале нажать на первую кнопку потом на вторую потом опять на первую и опять на вторую