Ответы
Ответ дал:
0
var
a, k, m, i: integer;
s: real;
begin
readln(a, k, m);
for i := 1 to k do
S += 1 / (a - k * m);
writeln(S);
end.
Вот, должно быть, так:)
a, k, m, i: integer;
s: real;
begin
readln(a, k, m);
for i := 1 to k do
S += 1 / (a - k * m);
writeln(S);
end.
Вот, должно быть, так:)
Ответ дал:
0
Вроде бы, не сумму, произведение надо
Ответ дал:
0
Да вообще
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад