Дано действительное число a. найти такое наименьшее n, что 1+1/2+...+1/n a - id1387557120210327 от Risha000chaR 27.03.2021 11:11

Question

Информатика: Дано действительное число a. найти такое наименьшее n, что 1+1/2+...+1/n a

Risha000chaR · Accepted Answer

Var A,B:real; Begin //1 Write( Длина = );ReadLn(A); Write( Ширина = );ReadLn(B); WriteLn( S = ,A*B); WriteLn( P = ,2*(A+B)); //2 WriteLn; Write( Кол-во денег: );ReadLn(A); Write( Стоимость покупки: );ReadLn(B); WriteLn( Сдача: ,A-B); //3 WriteLn; Write( Расстояние: );ReadLn(A); Write( Стоимость проезда 1 км: );ReadLn(B); WriteLn( Стоимость проезда ,A, км: ,A*B); //4 WriteLn; Write( Цена товара: );ReadLn(A); Write( Вес покупки: );ReadLn(B); WriteLn( Цена покупки: ,A*B); //5 WriteLn; Write( Объём...

Дано действительное число a. найти такое наименьшее n, что 1+1/2+...+1/n > a

MOGZ ответил