сервис вопросов и ответовДано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k<a и саму эту сумму. для прорграммы Paskal.
5-9 класс|
|
никиччч
25 апр. 2015 г., 14:07:04 (9 лет назад)
SanoNow
25 апр. 2015 г., 16:17:56 (9 лет назад)
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.
Ответить
Другие вопросы из категории
Планета (какая?) Солнечной системы, немногим больше Луны, температура в полдень на экваторе достигает 420 градусов Цельсия, ночью уменьшается до минус
180. Сколько земных суток длятся сутки на данной планете?
Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов,
значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4 Если совпадений нет, то вывести сообщение об этом. Заранее Спасибо.
Читайте также
Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел. Программа
получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .
Количество чисел не привышает 1000. Введеные числа не привышают 30000.
Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.
Пример работы программы:
Входные данные Выходные данные
15 17
20
17
0
Ребята кто разбирается в Pascal ABC помогите пожалуйста Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0).
Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,
Помогите пожалуйста Решить 2 задачи на языке Паскаль! 1) По данному числу N распечатайте все целые степени двойки, не
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
Помогите пожалуйстааааа, хотя бы не все но некоторые помогите сделать прошууу:) 1. Перевести данное число из десятичной системы счисления в
двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 113(10); б) 875(10); в) 535,1875(10); г) 649,25(10); д) 6,52(10). 2. Перевести данное число в десятичную систему счисления. а) 11101000(2); б) 1010001111(2); в) 1101101000,01(2); г) 1000000101,01011(2); д) 1600,14(8); е) 1E9,4(16).
1. Перевести данное число из десятичной СС в двоичную СС, восьмеричную и шестнадцатеричную СС. а) 500(10); б) 675(10); в) 810,25(10); г)
1017,25(10); д) 123,72(10)
2. Перевести данное число в десятичную СС.
а) 1101010001(2); б) 100011100(2); в) 1101110001,011011(2); г) 110011000,111001(2); д) 1347,17(8); е) 155,6C(16)
Вы находитесь на странице вопроса "Дано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k<a и саму эту сумму. для прорграммы Paskal.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.