profile
Опубликовано 4 года назад по предмету Информатика от niiddn

Помогите написать программу .

  1. Ответ
    Ответ дан petyaGavrikov
    var x,y,xx,yy,xy,s:real; n:integer;
    i:integer;
    begin
    write('x = '); readln(x);
    write('y = '); readln(y);
    write('n = '); readln(n);
    s:=0;
    xx:=1; yy:=1; xy:=1;
    for i:=1 to n do
     begin
     xx:=xx*x; yy:=yy*y;
     xy:=xy*(x+y);
     s:=s+(xx+yy)/xy;
     end;
    writeln('s = ',s);
    end.

    Пример:
    x = 2
    y = 3
    n = 4
    s = 1.9552
Другие вопросы
Lenusik
Математика - 3 дня назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 неделя назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 неделя назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 неделя назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 неделя назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.