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
Ответ:
8
Объяснение:
По росту ученики стоят так (самый высокий 6, самый низкий 1):
3 4 1 6 5 2
1) 3 4 6 1 5 2
2) 3 6 4 1 5 2
3) 6 3 4 1 5 2
4) 6 3 4 5 1 2
5) 6 3 5 4 1 2
6) 6 5 3 4 1 2
7) 6 5 4 3 1 2
8) 6 5 4 3 2 1
А)х=12
Б)х=34
В)х=5.5
С)х=89
D)x=22
E)x=12
12*3+1=37
37/2=18.5
100-18.5=81.5
81.5*2=163
Ответ: A)12,Б)34,B)5.5,C)89,D)22,E)163
Если не вдаваться в сложные подробности, то в общем это количество бит оперативной памяти, которые процессор обрабатывает за 1 операцию.