Var X: integer; s: string;
…
Procedure …
Begin
x:=strtoint(edit1.text);
s:=’’;
while x>0 do begin
z:=x mod 10;
s:=s+inttostr(z);
x:=x div 10;
end;
…
12343211
true
false
p:=0;
while x>0 do begin
if
…
End;
If p=1 then show…(‘true’)
While20. (В №1) Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Входные данные: ввести целое число N (1<N<=1000000000).
Выходные данные: вывести True ,если в записи числа N имеется цифра «2», иначе вывести False.
Одномерные массивы
Array1. (В №2) Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … .
Входные данные: ввести одно целое число N. (1<=N<=1000).
Выходные данные: вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … .
Var a: array[1…1000]of integer;
…
Procedure ….
Begin
n:=strtoint ….
For i:=1 to n do
Array2. (В №3) Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, … .
Входные данные: ввести одно целое число N. (1<=N<=40).
Выходные данные: вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, … .
Array3. (В №4) Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A + D, A + 2·D, A + 3·D, … .
Входные данные: ввести одно целое число N (1<=N<=100), целое число А (1<=A<=10) целое число D (1<=D<=100)
Выходные данные: вывести массив размера N, содержащий N первых членов данной прогрессии.
Array4. (В №1) Дано целое число N (> 1), а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A·D, A·D2, A·D3, … .
Входные данные: ввести одно целое число N (1<=N<=20), целое число А (1<=A<=10) целое число D (1<=D<=5)
Выходные данные: вывести массив размера N, содержащий N первых членов данной прогрессии.
Array5. (В №2) Дано целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK: F1 = 1, F2 = 1, FK = FK–2 + FK–1, K = 3, 4, … .
Входные данные: ввести одно целое число N. (1<=N<=40).
Выходные данные: вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK.
Array6. (В №3) Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.
Входные данные: ввести одно целое число N (2<=N<=40), целое число А (1<=A<=10) целое число В (1<=В<=100)
Выходные данные: вывести массив размера N, содержащий N первых членов данной прогрессии.
Array7°.(В №4) Дан массив размера N. Вывести его элементы в обратном порядке.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: вывести его элементы массива в обратном порядке.
Array8. (В №1) Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K. Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K.
Array9. (В №2) Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.
Array10. (В №3) Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.
Array11. (В №4) Дан массив A размера N и целое число K (1 K N). Вывести элементы массива с порядковыми номерами, кратными K: AK, A2·K, A3·K, … . Условный оператор не использовать.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000 и число K (1<=K<=N).
Выходные данные: вывести элементы массива с порядковыми номерами, кратными K: AK, A2·K, A3·K, … .
Array12. (В №1) Дан массив A размера N (N — четное число). Вывести его элементы с четными номерами в порядке возрастания номеров: A2, A4, A6, …, AN. Условный оператор не использовать.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести элементы массива с четными номерами в порядке возрастания номеров: A2, A4, A6, …, AN.
Array13. (В №2) Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN–2, AN–4, …, A1. Условный оператор не использовать.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести элементы массива с нечетными номерами в порядке убывания номеров: AN, AN–2, AN–4, …, A1.
Array14. (В №3) Дан массив A размера N. Вывести вначале его элементы с четными номерами (в порядке возрастания номеров), а затем — элементы с нечетными номерами (также в порядке возрастания номеров): A2, A4, A6, …, A1, A3, A5, … .
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести вначале его элементы с четными номерами (в порядке возрастания номеров), а затем — элементы с нечетными номерами (также в порядке возрастания номеров).
Array15. (В №4) Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров: A1, A3, A5, …, A6, A4, A2.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров.
Array16. (В №1) Дан массив A размера N. N-четное. Вывести его элементы в следующем порядке: A1, AN, A2, AN–1, A3, AN–2, … .
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести элементы в следующем порядке: A1, AN, A2, AN–1, A3, AN–2, … .
Array17. (В №2) Дан массив A размера N. (N кратное 4) Вывести его элементы в следующем порядке: A1, A2, AN, AN–1, A3, A4, AN–2, AN–3, … .
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000.
Выходные данные: вывести элементы в следующем порядке: A1, A2, AN, AN–1, A3, A4, AN–2, AN–3, … .
Array18. (В №3) Дан массив A ненулевых целых чисел размера N. Вывести значение первого из тех его элементов AK, которые удовлетворяют неравенству AK < AN. Если таких элементов нет, то вывести 0.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: вывести значение первого из тех его элементов AK, которые удовлетворяют неравенству AK < AN. Если таких элементов нет, то вывести 0.
Array19. (В №4) Дан целочисленный массив A размера N. Вывести порядковый номер последнего из тех его элементов AK, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: вывести порядковый номер последнего из тех его элементов AK, которые удовлетворяют двойному неравенству A1 < AK < AN. Если таких элементов нет, то вывести 0.
Array20. (В №1) Дан массив размера N и целые числа K и L (1 K L N). Найти сумму элементов массива с номерами от K до L включительно.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000 и целые числа K и L.
Выходные данные: вывести сумму элементов массива с номерами от K до L включительно.
Array21. (В №2) Дан массив размера N и целые числа K и L (1 K L N). Найти среднее арифметическое элементов массива с номерами от K до L включительно.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000 и целые числа K и L.
Выходные данные: вывести среднее арифметическое элементов массива с номерами от K до L включительно, с точностью до 4 цифр в дробной части.
Array22. (В №3) Дан массив размера N и целые числа K и L (1 < K L N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000 и целые числа K и L.
Выходные данные: вывести сумму всех элементов массива, кроме элементов с номерами от K до L включительно.
Array23. (В №4) Дан массив размера N и целые числа K и L (1 < K L N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000 и целые числа K и L.
Выходные данные: вывести среднее арифметическое элементов массива , кроме элементов с номерами от K до L включительно.
Array24. (В №1) Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от 1 до K.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000..
Выходные данные: сформировать и вывести новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от 1 до K. (элементы массива В выводит с точностью до 2 знаков в дробной части).
Array25°. (В №2) Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен сумме элементов массива A с номерами от K до N.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от 1 до 1000..
Выходные данные: сформировать и вывести новый массив B того же размера по следующему правилу: элемент BK равен сумме элементов массива A с номерами от K до N. (элементы массива В выводит с точностью до 2 знаков в дробной части).
Array26°. (В №3) Дан массив размера N. Поменять местами его первый минимальный и последний максимальный элементы.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: вывести массив после перестановки местами его первого минимального и последнего максимального элемента.
Array27. (В №4) Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию (при этом A1 перейдет в A2, A2 — в A3, …, AN — в A1).
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: вывести массив после циклического сдвига элементов массива вправо на одну позицию
Array28. (В №1) Дан массив размера N, все элементы которого, кроме первого, упорядочены по возрастанию. Сделать массив упорядоченным, переместив первый элемент на новую позицию.
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: вывести массив после обработки.
Array29. (В №2) Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся более двух раз, и вывести размер полученного массива и его содержимое. Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N чисел в диапазоне от -1000 до 1000.
Выходные данные: в первой строке вывести размер полученного массива , а во второй строке содержимое массива.
Array30. (В №3) Дано множество A из N точек (точки заданы своими координатами x, y). Найти пару различных точек этого множества с максимальным расстоянием между ними и само это расстояние (точки выводятся в том же порядке, в котором они перечислены при задании множества A).
Входные данные: ввести одно целое число N. (1<=N<=1000). Далее ввести N пар чисел (Xi,Yi) в диапазоне от -100 до 100.
Выходные данные: вывести номера точек с максимальным расстоянием между ними и само это расстояние (точки выводятся в том же порядке, в котором они перечислены при задании множества A). Расстояние вывести с точностью до 2 цифр в дробной части