While1°. (В №2)Даны положительные вещественные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A. Входные данные: ввести два вещественных числа A и B (1<=A,B<=1010).
Выходные данные: вывести длину незанятой части отрезка A c точностью до 2 цифр в дробной части.
While2°. (В №3)Даны положительные вещественные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти количество отрезков B, размещенных на отрезке A.
Входные данные: ввести два вещественных числа A и B (1<=A,B<=1010).
Выходные данные: вывести длину незанятой части отрезка A c точностью до 2 цифр в дробной части.
While3. (В №4)Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Входные данные: ввести два целых числа N и K (1<=N,K<=1010).
Выходные данные: вывести частное и остаток через один или несколько пробелов.
While4°. (В №1)Дано целое число N (> 0). Если оно является степенью числа 3, то вывести True, если не является — вывести False.
Входные данные: ввести целое число N (1<=N<=1010).
Выходные данные: вывести True, если оно является степенью числа 3, если не является — вывести False.
While5. (В №2)Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.
Входные данные: ввести целое число N (1<=N<=1010).
Выходные данные: вывести одно число K — показатель этой степени
While6. (В №3)Дано целое число 0<N<=10. Найти двойной факториал N: N!! = N·(N–2)·(N–4)·…(последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.
Входные данные: ввести целое число N (1<=N<=10).
Выходные данные: вывести двойной факториал N. (целое число)
While7°. (В №4)Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K2 > N. Функцию извлечения квадратного корня не использовать.
Входные данные: ввести целое число N (0<N<=1000000).
Выходные данные: вывести наименьшее целое положительное число K, квадрат которого превосходит N.
While8. (В №1)Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K2 £ N. Функцию извлечения квадратного корня не использовать Входные данные: ввести целое число N (0<N<=1000000).
Выходные данные: вывести наибольшее целое число K, квадрат которого не превосходит N: K2 £ N.
.
While9.(В №2)Дано целое число N (> 1). Найти наименьшее целое число K, при котором выполняется неравенство 3K > N.
Входные данные: ввести целое число N (1<N<=1000000).
Выходные данные: вывести наименьшее целое число K, при котором выполняется неравенство 3K > N.
While10. (В №3)Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Входные данные: ввести целое число N (1<N<=1000000).
Выходные данные: вывести наибольшее целое число K, при котором выполняется неравенство 3K < N.
While11°. (В №4)Дано целое число N (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + … + K будет больше или равна N, и саму эту сумму.
Входные данные: ввести целое число N (1<N<=1000000).
Выходные данные: вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + … + K будет больше или равна N, и саму эту сумму.
While12°. (В №1)Дано целое число N (> 1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 2 + … + K будет меньше или равна N, и саму эту сумму.
Входные данные: ввести целое число N (1<N<=1000000).
Выходные данные: вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + … + K будет больше или равна N, и саму эту сумму.
While13. (В №2)Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму с точностью до 14 знаков в дробной части.
Входные данные: ввести целое число A (1<A<=30).
Выходные данные: вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму с точностью до 2 знаков в дробной части.
While14. (В №3)Дано число A (> 1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет меньше A, и саму эту сумму.
Входные данные: ввести целое число A (1<A<=30).
Выходные данные: вывести наибольшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет меньше A, и саму эту сумму с точностью до 5 знаков в дробной части..
While15. (В №4)Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число сумму).
Входные данные: ввести целое число P 0 < P < 25).
Выходные данные: вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число с точностью до 2 цифр в дробной части ).
While16. (В №1)Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на P процентов от пробега предыдущего дня (P — вещественное, 0 < P < 50). По данному P определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км, и вывести найденное количество дней K (целое) и суммарный пробег S (вещественное число).
Входные данные: ввести целое число P (0 < P < 50).
Выходные данные: вывести найденное количество дней K (целое) и суммарный пробег S (вещественное число с точностью до 2 цифр в дробной части ).
While17. (В №2)Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).
Входные данные: ввести целое число N (1<N<=1000000000).
Выходные данные: вывести все его цифры, начиная с самой правой (разряда единиц) (через один или несколько пробелов).
While18. (В №3)Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.
Входные данные: ввести целое число N (1<N<=1000000000).
Выходные данные: вывести количество и сумму его цифр через один или несколько пробелов.
While19. (В №4)Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.
Входные данные: ввести целое число N (1<N<=1000000000).
Выходные данные: вывести число, полученное при прочтении числа N справа налево.
var x: integer; s: string;
…
Procedure …
Begin
x:=strtoint(edit1.text);
s:=’’;
while x>0 do begin
z:=x mod 10;
s:=s+inttostr(z);
x:=x div 10;
end;
…
True
False
p:=0;
while x>0 do begin
if
…
End;
If p=1 then show…(‘true’)
While20. (В №1)Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Входные данные: ввести целое число N (1<N<=1000000000).
Выходные данные: вывести True ,если в записи числа N имеется цифра «2», иначе вывести False.
