Дано натуральное число n (n вводится пользователем с клавиатуры). Вычислить:
Приложения:
Ответы на вопрос
Ответил DilshodSoliev
0
Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.
Ответил DilshodSoliev
0
а у меня нормально работает
Ответил maskov1
0
щас ещё раз попробую
Ответил DilshodSoliev
0
Program math;
var a: real;
var i,n: integer;
begin
a:=1;
readln(n);
for i:=1 to n do
begin
a:=a+(1/i);
end;
writeln(a);
end.
var a: real;
var i,n: integer;
begin
a:=1;
readln(n);
for i:=1 to n do
begin
a:=a+(1/i);
end;
writeln(a);
end.
Ответил DilshodSoliev
0
вот так пиши
Ответил DilshodSoliev
0
заработал?
Новые вопросы