Последние аk =( 1,9x+ 7k)/k! program sum; const e = 0.001; var x, a,summa : real; k : integer; function - id260196620221029 от xXDenchykXx1 29.10.2022 15:55

Question

Информатика: Последние аk =( 1,9x+ 7k)/k! program sum; const e = 0.001; var x, a,summa : real; k : integer; function factorial(n: word): longint; begin if n=0 then factorial : = 1 else factorial : = n*factorial(n-1); end; begin writeln( введите x: ); readln(x); summa: = 0; k: =1; a : = 1.9*x+exp(k*ln(7)); while abs(a) e do begin summa: =summa + a; k : = k + 1; a : = exp(1.9*x+exp(k*ln(/factorial(k); end; writeln( сумма= , summa: 5: 2); writeln( количество слогаемых= , k-1); end. где ошибка?

xXDenchykXx1 · Accepted Answer

Сначала узнаем кто где живет.

Известно что:
(1) Слесарь живет левее Учителя
(2) Парикмахер живет правее Учителя
Значит учитель живет по между ними
С У    П
(3) Врач живет с краю
(4) Врач живет рядом с Парикмахером
Значит Врач живет с права
С У П   В

Построим таблицу

   С У П В
И

Б

М

А
(5) Борис не Врач и не живет рядом с Врачом

   С У П В
И

Б Х Х

М

А

(6) Андрей живет рядом с Учителем

С У П   В
И

Б Х

М

А Х Х

(7) Иван живет левее Парикмахера

С У П   В
И Х Х

Б Х    Х

М

А Х Х

(8) Иван живет через дом от Андрея

С У   П В
И + Х Х Х
Б    Х   + Х   Х
М   Х Х   Х +
А Х Х +    Х

MOGZ ответил