while15-27

Решение задач. День двенадцатый. Задачи While15-27

Приветствуем читателей нашего сайта! Сегодня мы решаем задачи из сборника Абрамяна — while15-27.

Задачи while15-27

While15. Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число).

Решение Показать

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

Решение Показать

While17. Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).

Решение Показать

While18. Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.

Решение Показать

While19. Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.

Решение Показать

While20. Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.

Решение Показать

While21. Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести True, если нет — вывести False.
Решение Показать

While22°. Дано целое число N (> 1). Если оно является простым, то есть не имеет положительных делителей, кроме 1 и самого себя, то вывести True, иначе вывести False.
Решение Показать

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

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

Эту задачу, а также алгоритм Евклида, я разберу в следующем уроке.
While24. Дано целое число N (> 1). Последовательность чисел Фибоначчи FK определяется следующим образом:
F1 = 1,
F2 = 1,
FK = FK–2 + FK–1, K = 3, 4, … .
Проверить, является ли число N числом Фибоначчи. Если является, то вывести True, если нет — вывести False.

Решение Показать

While25. Дано целое число N (> 1). Найти первое число Фибоначчи, большее N (определение чисел Фибоначчи дано в задании While24).

Решение Показать

While26. Дано целое число N (> 1), являющееся числом Фибоначчи: N = FK (определение чисел Фибоначчи дано в задании While24). Найти целые числа FK–1 и FK+1 — предыдущее и последующее числа Фибоначчи.

Решение Показать

While27. Дано целое число N (> 1), являющееся числом Фибоначчи: N = FK (определение чисел Фибоначчи дано в задании While24). Найти целое число K — порядковый номер числа Фибоначчи N.
Решение Показать

На сегодня все! Подписывайтесь на наш сайт и не забывайте кликать по кнопочкам! Если у вас возникли вопросы, не стесняйтесь! Задавайте их в комментариях.

  • Кирилл

    Можно легче решение 15 задачи?

  • Ro

    [while16]
    этот способ подойдет?

    program Qwerty;
    var p, s: real;
    k: integer;
    begin
    s := 10;
    k := 1;
    read(p);
    p := 10 / 100 * p;
    while s <= 200 do
    begin
    s := s + p;
    k := k + 1;
    end;
    writeln(k);
    writeln(s:3:2);
    end.