Ответ: a)
program dz;
var
k,a,b:real;
begin
read(a,b);
k:=(sqrt(a)+sqrt(b))/sqrt(sqr(a)+sqr(b));
write(k);
end.
б)
program dz;
var
x,z,y:real;
begin
read(z,y);
x:=z*y/sqrt((sqr(z)*z)+(sqr(y)*y));
write(x);
end.
Объяснение:
Составь алгоритм для Путешественника
Цель: изучить флэш-память.
Начальное положение: Путешественник — в корне дерева.
Начало
Конец
С
Составь алгоритм для Путешественника.
Цель: изучить все диски.
Начальное положение: Путешественник — в вершине «Флэш-память».
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>