Var a, b, c, s: real;
begin
write('Введите a, b: '); readln(a, b);
c := sqrt(a*a + b*b);
s := (a * b) / 2;
writeln('Гипотенуза: ', c, #10, 'Площадь: ', s);
end.
<h2>Пункт 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 4 + 2 + 1 = 39₁₀
<h2>
Пункт 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 64 + 0 + 0 + 8 + 4 + 2 = 206₁₀
<h2>Пункт 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 + 32 + 0 + 8 + 0 + 2 + 0 = 170₁₀
<h2>Пункт 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 0 = 126₁₀
1) Сначала лисенок переправляет на тот берег двух своих собратьев (2 захода);
2) В условии сказано, что ни лисица, ни волк не доверят своих детей другой матери, но про детей ничего не сказано, значит лисенок может переправить на тот берег волчат. Он переправляет трех волчат на тот берег(3 захода);
3) Потом Лисица переправляет своего последнего ребенка на берег. Таким образом, на другой берег уже переправлены все волчата и лисята;
4) Потом Лисица плывет за Волчихой и уже вдвоем они переправляются на тот берег.
Всё!
Возможность исправления искаженных информационных данных, повышенная помехоустойчивость благодаря специальным методам кодирования информационных данных, возможность сжатия информационных данных, возможность передачи информационных данных по одному каналу от различных источников
Вот держи)
var k,N,numb,min :integer;
begin
min:=30000;
readln(N);
for k:= 1 to N do
begin
readln(numb);
if (numb mod 10 = 4) and (numb < min) then
min:= numb;
end;
writeln(min);
<span>end.</span>
