Цикл с предусловием

Дата добавления: 2014-11-27; просмотров: 1236; Нарушение авторских прав

60.	Дана последовательность операторов: a := 1; и b := 1; while a+b<8 do begin a := a+1; b := b+2 end; s := a+b; Сколько раз будет повторен цикл и, какими будут значения переменных a, b и s после завершения этой последовательности операторов?
61.	Какими будут значения переменных а и b после выполнения операторов: a := 1; и b := 1; while a<=3 do a := a+1; b := b+1;
62.	Дана последовательность операторов, вычисляющих факториал f числа n, которая содержит ошибки. k := 1; и f := 0; while k<n do f := fk;* k := k + 1; Найдите эти ошибки.
63.	Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке. p := n; while p>=0 do begin a := a+p MOD 10; p :=p Div 10; end.
64.	Даны a, b ( a > 1 ). Получить степени а: a, a², a³, … , меньшие b.
65.	Найти S = 1 + 3 + 5 + 7 + 9 + 11 + 13 + 15
66.	Найти сумму и количество цифр любого натурального числа.
67.	Написать программу, которая определит 1-ое отрицательное число последовательности , где I = 1, 2, 3, …
68.	Определить значение суммы S = 1/2 + 1/4 + … +1/72.
69.	Найти первую цифру числа.
70.	Поменять местами первую и последнюю цифры числа.
71.	Найти количество четных цифр целого положительного числа.
72.	Найти самую большую цифру целого числа.
73.	Найти сумму цифр целого числа, больших 5.
74.	Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей.
75.	Население города ежегодно увеличивается на 1/40 населения состава жителей. Через сколько лет население города утроится?
76.	Не используя стандартные функции вычислить с точностью Е=10^-4. .
77.	Сумма S рублей положена в сбербанк, при этом ежегодный прирост составляет Р% и считается непрерывным. Определить, через сколько лет первоначальная сумма увеличится в N раз

<== предыдущая лекция	\|	следующая лекция ==>
Цикл с параметром	\|	Цикл с постусловием