Все готовые лабы по паскалю (3 задание)

Посмотреть архив целиком

3. Дано натуральное число n и действительное число x. Вычислить:






  • Текст программы:

var

k, m, n: integer;

i, s, x: real;

begin

write ('n=');

readln (n);

write ('x=');

readln (x);

i:=0;

s:=0;

for k:=7 to n do begin

for m:=k to n do

i:=(x+k) /m;

s:=s+i

end;

writeln ('s=',s);

readln; readln;

end.


  • Исходные данные: n=8 and x=3; Результат: s=2.6250000000E+00







Случайные файлы

Файл
181722.rtf
103665.rtf
31617.rtf
4155-1.rtf
2450.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.