===== PascalABC.NET
begin
var s := 0.0;
for var i := 1 to ReadInteger('n =') do
s += 1 / Sqrt(i);
Println(s)
end.
В третьей строке программы переменная a примет значение равное 31. Значит a > b и с станет равно 5*31 -20 = 135
1) С
2) D
3) C
4) C
5) фото
6) С
7) С
8) B
9) B
10) C
11) D
12) B
13) B
14) C
15) A
16) A
ax=b
x=b/a
Алгоритм решения такого уравнения: Делим А на число В.
Программа в паскале:
var
a,b,x:real;
begin
readln(a);
readln(b);
if b=0 then begin
write('net resheniy');
exit;
end;
x:=a/b;
writeln(x);
end.
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.