Предмет: Информатика,
автор: Аноним
помогите пожалуйста! завтра уже сдавать
Приложения:
![](https://files.topotvet.com/i/7d0/7d044a21b5f2700b15902739f8607ea2.jpg)
Ответы
Автор ответа:
0
var
i, k: integer;
begin
for i := 1 to 4 do
k += i;
writeln(k);
end.
![dotfill dotfill](https://tex.z-dn.net/?f=dotfill)
var
n, i: integer;
k: real;
begin
readln(n);
for i := 2 to n do
k += (i mod 2 = 0 ? 1 : -1) * (1 / i);
writeln(k);
end.
![dotfill dotfill](https://tex.z-dn.net/?f=dotfill)
var
i: integer;
k: real;
begin
for i := 2 to 600 do
k += 1 / i;
writeln(k);
end.
i, k: integer;
begin
for i := 1 to 4 do
k += i;
writeln(k);
end.
var
n, i: integer;
k: real;
begin
readln(n);
for i := 2 to n do
k += (i mod 2 = 0 ? 1 : -1) * (1 / i);
writeln(k);
end.
var
i: integer;
k: real;
begin
for i := 2 to 600 do
k += 1 / i;
writeln(k);
end.
Похожие вопросы
Предмет: Математика,
автор: muik21
Предмет: История,
автор: dubikvkadislav
Предмет: Алгебра,
автор: Аноним
Предмет: Алгебра,
автор: NastyaLittle
Предмет: Геометрия,
автор: JuliaRemark