Определить значение переменной s после выполнения следующих операторов- s - 0; i - 0; While i[5 Do Inci; s
Работа добавлена на сайт samzan.net: 2015-07-05
Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
Циклы с предусловием
- Дана последовательность операторов:
a := 1; b := 1;
while a + b < 8 do Begin a :=a + 1; b := b + 2 End;
s := a + b
Сколько раз будет повторен цикл и какими будут значения переменных a, b и s после завершения этой последовательности операторов?
- Какими будут значения переменных a и b после выполнения операторов:
a := 1; b := 1;
While a <= 3 Do a := a + 1; b := b + 1.
- Определить значение переменной s после выполнения следующих операторов:
- s := 0; i := 0; While i<5 Do Inc(i); s := s + 100 Div i;
- s := 0; i := 1; While i>1 Do Begin s := s + 100 Div i; dec(i) End;
- Дана последовательность операторов, вычисляющих факториал f числа n:
k := 1; f := 0:
While k<n Do f := f * k
k := k + 1;
которая содержит пять ошибок. Найдите эти ошибки.
- Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке.
p := n;
While p>=0 Do
Begin
a := a + p Mod 10;
p := p Div 10
End;
- Найти сумму цифр числа.
- Найти первую цифру числа.
- Приписать по 1 в начало и в конец записи числа n. Например, было n=3456, стало n=134561.
- Поменять местами первую и последнюю цифры числа.
- Поменять порядок цифр числа на обратный. Например, было 12345, стало 54321.
- Найти количество чётных цифр целого положительного числа.
- Найти самую большую цифру целого числа.
- Найти сумму цифр целого числа, больших 5.
- Сколько раз данная цифра встречается в целом числе?
- Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей.
- Составить программу, проверяющую, является ли заданное натуральное число палиндромом, то есть таким, десятичная запись которого читается одинаково слева направо и справа налево.
Циклы с постусловием
- Определить значение переменной s после выполнения следующих операторов:
s := 0; i := 1;
Repeat s := s + 5 Div i; i := 1 - 1; Until i<=1;
- Произведение максимального количества N первых нечетных чисел не больше p. Каков последний сомножитель? Сколько сомножителей взято?
- Числа Фибоначчи (fn) определяется формулами: f0 = f1 = 1; fn = fn = fn-1 + fn-2 при n=2, 3,... Составить программу:
- определения f - 40-е число Фибоначчи;
- поиска f - первого числа Фибоначчи, большего m (m>1);
- вычисления s - суммы всех чисел Фибоначчи, которые не превосходят 1000.
- Составить программу, проверяющую, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.
- Показать, что любой оператор цикла с предусловием можно записать с помощью условного оператора и оператора цикла с постусловием.
- Показать, что любой оператор цикла с постусловием можно записать с помощью условного оператора и оператора цикла с предусловием.
- Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.
Вложенные циклы
- Что будет выведено на экране монитора после выполнения следующего фрагмента программы:
a := 1; b := 1;
For i := 0 To n Do
Begin
For j := 1 To b Do Write('*');
Writeln;
c := a + b; a := b; b := c;
End;
если n = 6? Решение какой задачи выражает этот фрагмент программы?
- Что будет выведено на экране монитора после выполнения следующего фрагмента программы:
b := 0;
While a<>0 Do
Begin
b := b*10 + a Mod 10;
a := a Div 10;
End;
Write(b);
если a = 13305? Решение какой задачи выражает этот фрагмент программы?
- Исходное данное - натуральное число q, выражающее площадь. Написать программу для нахождения всех таких прямоугольников, площадь которых равна q и стороны выражены натуральными числами.
- Составить программу для графического изображения делимости чисел от 1 до n (n - исходное данное). В каждой строке надо печатать число и сколько плюсов, сколько делителей у этого числа. Например, если исходное данное - число 4, то на экране должно быть напечатано:
1+
2++
3++
4+++
- Составить программу получения всех совершенных чисел, меньших заданного числа n. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28 - совершенно, так как 28=1+2+4+7+14.
Из истории. Грекам были известны первые четыре совершенных числа: 6, 28, 496, 8128. Эти числа высоко ценились. Даже в XII веке церковь утверждала, что для спасения души необходимо найти пятое совершенное число. Это число было найдено только в XV веке. До сих пор совершенные числа полностью не исследованы - не известно, имеется ли конечное число совершенных чисел или их число бесконечно, кроме того, неизвестно ни одного нечётного совершенного числа, но и не доказано, что таких чисел нет.
- Дано натуральное число n. Можно его представить в виде суммы трёх квадратов натуральных чисел? Если можно, то:
- указать тройку x, y, z, таких натуральных чисел, что x2 + y2 + z2 = n;
- указать все тройки x, y, z таких натуральных чисел, что x2 + y2 + z2 = n.
- Найти натуральное число от 1 до 10000 с максимальной суммой делителей.
- Даны натуральные числа a, b (a<b). Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b.
- Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m.
- Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается).
- В данном натуральном числе переставить цифры таким образом, чтобы образовалось наименьшее число, записанное этими же цифрами.
- Составить программу, печатающую для данного натурального числа k-ю цифру последовательности:
- 12345678910..., в которой выписаны подряд все натуральные числа;
- 14916253649..., в которой выписаны подряд квадраты всех натуральных чисел;
- 1123581321..., в которой выписаны подряд все числа Фибоначчи.
- Составить программу возведения заданного числа в третью степень, используя следующую закономерность:
13 = 1
23 = 3 + 5
33 = 7 + 9 + 11
43 = 13 + 15 + 17 + 19
53 = 21 + 23 + 25 + 27 + 29
- Составить программу для нахождения всех натуральных решений уравнения n2 + m2 = k2 в интервале [1, 10].
Примечание. Решения, которые получаются перестановкой n и m, считать совпадающими.
Циклы со счетчиком
- Сколько раз будут выполнены операторы из тела циклов в следующих фрагментах программ:
- For k:=-1 To 1 Do ...
- For k:=10 To 20 Do ...
- For k:=20 To 10 Do ...
- k:=5; r:=15;
- For i:=k+1 To r-1 Do ...
- k:=5; r:=15;
- For i:=0 To k*r Do ...
- k:=r;
- For i:=k To r Do ...
- Определить значение переменной S после выполнения следующих операторов:
s := 0; n := 10
For i := 2 To n Do s := s + 100 Div i
- Составить программу возведения натурального числа в квадрат, используя следующую закономерность:
12 = 1
22 = 1 + 3
32 = 1 + 3 + 5
42 = 1 + 3 + 5 + 7
....
n2 = 1 + 3 + 5 + 7 + 9 + ... + 2n-1
- Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N.
- Составить программу вычисления суммы кубов чисел от 25 до 125.
- Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13. Ответ: .
- Написать программу поиска двузначных чисел, таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, то получится это число.
- Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число.
- Написать программу поиска четырехзначного числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111. Ответ: 1987.
- Найти сумму положительных нечетных чисел, меньших 100.
- Найти сумму целых положительных чисел из промежутка от A до B, кратных 4 (значения переменных A и B вводятся с клавиатуры).
- Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8.