Предмет: Информатика, автор: DarkDariy

Дано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k<a и саму эту сумму. для прорграммы Paskal.

Ответы

Автор ответа: Artem1993

program count

var k:integer;

a,s:real;

begin

read(A);

s:=0;

k:=0;

wile s < a do

begin

k:=K+1

S:=S+1/k

end;

end.

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: История, автор: zagorodinayoulia2

Представьте себе что вы оказались на одной из торговых площадей в Москве. Составьте список товаров которые здесь можно купить. укажите какие из них произведены московскими мастерами А какие привезенные из других мест. Напишите откуда привезены товары
(ОЧЕНЬ СРОЧНА НУЖНО ПЛИСС )ДАМ 20 БАЛЛОВ

7 лет назад

Предмет: История, автор: kanimetumarbekov0106

В каком году армия гуннов напала на Галлию, провинцию Римской империи ?

453 год

451 год

433 год

454 год

пожалуйста пожалуйста не из интернета

7 лет назад

Предмет: Математика, автор: Tatushka08

ширина прямоугольника 5 см а длина в два раза длиннее Найдите площадь и периметр данного прямоугольника. Как записать условия и решение?

7 лет назад

Предмет: Математика, автор: мааррьям

трижды закидывал старик в море невод и выловил тину,траву морскую да рыбу золотую.масса всего улова 158кг.масса золотой рыбки 2/75 массы улова ,а масса тины равна массе травы морской.какова масса травы морской в улове старика?

10 лет назад

Предмет: Геометрия, автор: няо

ABCD-квадрат со стороной = 1,BM перпендикулярно ABC,BM=1 Найдите двугранный угол AMDC (с чертежами) ABC правильный треугольник.Точка O серидина AC,OD перпендикулярно ABC,OD=3.Сторона треугольника = 8кор из 3/3.Найдите угол ABDC

10 лет назад