Предмет: Информатика,
автор: ketrinpirs971КАТ
нужно в паскале написать программу.Даны натуральные числа a, n. Вычислить 1/a+1/a+1+...+1/a+n помогите в паскале составить эту штуковину. ПОЖАЛУУЙСТА
Ответы
Автор ответа:
1
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.
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.
Интересные вопросы
Предмет: Литература,
автор: komilovamir750
Предмет: Қазақ тiлi,
автор: lajlazanuzakova8
Предмет: Обществознание,
автор: mthailrepin
Предмет: Математика,
автор: yuldasheva1986
Предмет: Алгебра,
автор: saidafo