While P<=N do. Найти произведение: П = 23436383.

⇐ ПредыдущаяСтр 2 из 2

While P<=N do

begin

P:=P*i;

i:=i+5;

end;

Writeln ( 'Произведение Р= ' , Р);

End.

2. Решение задач

1. Найти сумму 2+5+8+11+… Складывать до тех пор пока слагаемое не станет больше 100.

2. Найти произведение: 3*7*11*15*... Умножать до тех пор, пока произведение не станет больше N.

3.Найти количество чисел, кратных 8 из промежутка от 10 до N.

4. Найти произведение: П = 23*43*63*83*...

Умножение выполнять до тех пор, пока множитель не станет больше 500.

5. За первый день Маша съела Х ложек каши, за второй день – в два раза больше, в третий – в два раза больше, чем за второй и т. д. Сколько ложек каши съела Маша за N день?

6. Вдохновленный своими успехами в освоении обыкновенных дробей, Вася решил продолжить эксперименты. И взялся их (т.е. дроби) последовательно складывать. Перво-наперво Вася решил сложить дроби, числители которых равны единице, знаменатель A первой известен, а знаменатель каждой следующей больше знаменателя предыдущей на одно и то же число D, и складывать их пока слагаемое не станет меньше 0.2. Помогите Васе. Напечатайте ответ с точностью до сотых.

Например, при A = 2, D = 1, получаем

7. "Число в последовательности"

Последовательность чисел строится следующим образом: первое число равно K, а каждое следующее равно утроенному предыдущему плюс один, если предыдущее нечетное, а иначе – предыдущему, деленному на два и т.д.

Требуется написать программу, которая по заданному натуральному числу K определяет, какое число стоит на N-ом месте.

Пример входных данных:

5 3

Пример выходных данных (для приведенных выше входных):

⇐ Предыдущая 12

While P<=N do. Найти произведение: П = 23*43*63*83*.

While P<=N do. Найти произведение: П = 23436383.