Нужно в паскале написать программу.Даны натуральные числа a, n. Вычислить 1/a+1/a+1+...+1/a+n помогите в паскале составить эту штуковину. ПОЖАЛУУЙСТА

Ответы (1)

Вохид 07.11.2024 2
Var a,n,i:integer;
r,s:real;
begin
readln(a);
readln(n);
for i:=a to n do begin
r:=i;
s:=s+1/i;
end;
writeln(s);
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ