Если здесь надо дать ответ, только из предложенных вариантов, то верным будет ответ - 4) С:\учёба\математика\2013\Расписание
Var
i:integer;
n,m:longint;
begin
Write('Введите натуральное m: '); Read(m);
n:=1;
repeat
n:=3*n; Inc(i)
until n>m;
Writeln('3^',i-1,' = ',n div 3,' не превышает ',m)
end.
<em><u>Тестовые решения:</u></em>
Введите натуральное m: 1
3^0 = 1 не превышает 1
Введите натуральное m: 3
3^1 = 3 не превышает 3
Введите натуральное m: 54652341
3^16 = 43046721 не превышает 54652341
var x,y:real;
begin
readln(x);
if x<=3 then y:=-5
else if x>3 then y:=2*x-4;
write('y = ',y);
readln;
end.
1) 2*pi*R
2) b*b–4*a*c
3) –7.5*a*a
4) x1*x2+x1*x3+x2*x3
5) 2*(a+b)
6) a*sqrt(2*b)
7) a/(b*c)
8) (a+b)/2
9) 5.45*(a+2*b)/(2*c)
10) -1/sqr(x)
11) (-b+1/a)/(2/c)
12) 1/(1+(a+b)/2)
13) (-b+sqrt(b*b-4*a*c))/(2*a)
14) 1/sqrt(a*x*x+b*x+c)
15) ((sqrt(x+1)+sqrt(x-1))/(2*sqrt(x))