tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. дано число x и последовательность
Паскаль. дано число x и последовательность 1,1+1/2,1+1/2+1/ первое число этой последовательности большее, чем x, вывести порядковый номер числа и его величину.
MrLello
1 08.08.2019 14:10
0
Ответы
kakashonka1
04.10.2020 05:07
Var
a, y: real;
i: integer;
begin
readln(a);
if a < 1 then writeln(1, ' ', 1)
else
begin
i := 1;
y := 0;
while y <= a do
begin
y := y + 1 / i;
inc(i);
end;
dec(i);
writeln(i, ' ', y:0:10);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Valeriya2576
27.05.2019 15:37
Запишите решение в виде блок-схем...
kononenkoalinka
27.05.2019 16:50
Создайте приложение, на форму которого помещены компоненты: button — 1 шт. label — 1 шт. edit — 2 шт. напишите обработчик события onclick компонента button, в котором...
olgahenderson
27.05.2019 15:27
Занести в файл следующую информацию: зарплата и фио сотрудников ( напечатать фио человека, получаемую максимальную зарплату. си или с+...
jsjdnnx
27.05.2019 16:50
Жесткий диск пуст и имеет объем 160 гбайт. сколько книг, каждая из которых состоит из 1000 страниц, на каждой странице 100 строк, в каждой строке 80 символов, можно записать...
Efendieva2004
27.05.2019 16:50
Считая что каждый символ кодируется 2 байтами, оцените информационный объем в битах следующего предложения в кодировке unicode : один пуд около 16,4 килограмма...
katyayatakozwmp5
27.05.2019 16:50
Сколько байтов содержится в одном символе юникода в символе ascii...
artemy050702
27.05.2019 16:50
Девочки аня, маша и варя купили себе флешки синего, белого и красного цветов. на вопрос, у кого из них какая флешка, одна из девочек ответила: у ани флешка синяя, у маши...
goodwar40
27.05.2019 16:50
Для данного x вычислить значение функции: f(x)= {■((√(x+2 ) -5)/( x)@2x^2 +〖(x-1)〗^2/|x| ; x 1)┤+ cosx+lnx; x≥1 решение написать на языке pascal....
lada48
27.05.2019 17:00
Напишите для паскаля,. с клавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17....
tanya18veselova
27.05.2019 17:00
При работе с электронной таблицей, какие ссылки используются для указания фиксированных адресов ячеек?...
Популярные вопросы
Роль частиц в предложении , молю вас в учебнике ничего нет! 45...
1
Востроугольном треугольнике авс провели высоты аа1 и сс1. точка м...
1
Запиши дыузначные числа при умножения единиц которых на 8 применяется...
1
Угострокутному трикутнику авс провели висоти аа1 і сс1. точка м середина...
1
Уравнение второго класса 40 плюс икс равно 250 минус 140...
3
Уровняйте методом электронного kmno4+h2so4+c2h2 k2so4+mnso4+co2+h2o...
3
1. саша теперь не спорил, кто хозяин дружка. 2. саша и костя подобрали...
2
Вкаком году умер последний хан казахов...
1
Уравнение второго класса а минус 90 равно 310 плюс 310...
3
Даны буквы х, л, м, ф, ж, е, ш, о, с, н, и, я, г. найди оси симметрии...
1
a, y: real;
i: integer;
begin
readln(a);
if a < 1 then writeln(1, ' ', 1)
else
begin
i := 1;
y := 0;
while y <= a do
begin
y := y + 1 / i;
inc(i);
end;
dec(i);
writeln(i, ' ', y:0:10);
end;
end.