Цикл с условием

While1°.^{[Pascal] [C#] [VB.NET]} Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A.

While2°.^{[Pascal] [C#] [VB.NET]} Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти количество отрезков B, размещенных на отрезке A.

While3.^{[Pascal] [C#] [VB.NET]} Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.

While4°.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Если оно является степенью числа 3, то вывести true, если не является — вывести false.

While5.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2^K. Найти целое число K — показатель этой степени.

While6.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Найти двойной факториал N:

N!! = N·(N−2)·(N−4)·…

(последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.

While7°.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K² > N. Функцию извлечения квадратного корня не использовать.

While8.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K² ≤ N. Функцию извлечения квадратного корня не использовать.

While9.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Найти наименьшее целое число K, при котором выполняется неравенство 3^K > N.

While10.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3^K < N.

While11°.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + … + K будет больше или равна N, и саму эту сумму.

While12°.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 2 + … + K будет меньше или равна N, и саму эту сумму.

While13.^{[Pascal] [C#] [VB.NET]} Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.

While14.^{[Pascal] [C#] [VB.NET]} Дано число A (> 1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет меньше A, и саму эту сумму.

While15.^{[Pascal] [C#] [VB.NET]} Начальный вклад в банке равен 1000 руб. В конце каждого месяца размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число).

While16.^{[Pascal] [C#] [VB.NET]} Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на P процентов от пробега предыдущего дня (P — вещественное, 0 < P < 50). По данному P определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км, и вывести найденное количество дней K (целое) и суммарный пробег S (вещественное число).

While17.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).

While18.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.

While19.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.

While20.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести true, если нет — вывести false.

While21.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести true, если нет — вывести false.

While22°.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Если оно является простым, т. е. не имеет положительных делителей, кроме 1 и самого себя, то вывести true, иначе вывести false.

While23°.^{[Pascal] [C#] [VB.NET]} Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида:

НОД(A, B) = НОД(B, A mod B),    если B ≠ 0;        НОД(A, 0) = A,

где «mod» обозначает операцию взятия остатка от деления.

While24.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Последовательность чисел Фибоначчи F_K определяется следующим образом:

F₁ = 1,        F₂ = 1,        F_K = F_K−2 + F_K−1,    K = 3, 4, … .

Проверить, является ли число N числом Фибоначчи. Если является, то вывести true, если нет — вывести false.

While25.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1). Найти первое число Фибоначчи, большее N (определение чисел Фибоначчи дано в задании While24).

While26.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1), являющееся числом Фибоначчи: N = F_K (определение чисел Фибоначчи дано в задании While24). Найти целые числа F_K−1 и F_K+1 — предыдущее и последующее числа Фибоначчи.

While27.^{[Pascal] [C#] [VB.NET]} Дано целое число N (> 1), являющееся числом Фибоначчи: N = F_K (определение чисел Фибоначчи дано в задании While24). Найти целое число K — порядковый номер числа Фибоначчи N.

While28.^{[Pascal] [C#] [VB.NET]} Дано вещественное число ε (> 0). Последовательность вещественных чисел A_K определяется следующим образом:

A₁ = 2,        A_K = 2 + 1/A_K−1,    K = 2, 3, … .

Найти первый из номеров K, для которых выполняется условие |A_K − A_K−1| < ε, и вывести этот номер, а также числа A_K−1 и A_K.

While29.^{[Pascal] [C#] [VB.NET]} Дано вещественное число ε (> 0). Последовательность вещественных чисел A_K определяется следующим образом:

A₁ = 1,        A₂ = 2,        A_K = (A_K−2 + 2·A_K−1)/3,    K = 3, 4, … .

Найти первый из номеров K, для которых выполняется условие |A_K − A_K−1| < ε, и вывести этот номер, а также числа A_K−1 и A_K.

While30.^{[Pascal] [C#] [VB.NET]} Даны положительные числа A, B, C. На прямоугольнике размера A × B размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике. Операции умножения и деления не использовать.