Uses crt;
var i,N:integer;
s:real;
begin
s:=0;
write('вв N');
read(N);
for i:=1 to N do
s:=s+sqrt(i);
write('otvet:', s);
readkey
end.
<span>t=s/U s-объем, U- скорость
</span>
1)335
2)115,6
3)46
держииииии
Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
Для решения задачи необходимо наибольшее из значений x, для которых выполняются условия:
x^2 <= 69 и x^3 > 69
x=7: 7^2 = 49; 7^3 = 343
x=8: 8^2 = 64; 8^3 = 512
x=9: 9^2 = 81
Ответ: x=8