Язык программирования Pascal. Ветвления и циклы. Васильев В.В - 16 стр.

UptoLike

16
88. Получите таблицу температур по шкале Цельсия от 0 до 100 градусов и их
эквивалентов по шкале Фаренгейта, используя для перевода формулу
tt
FC
=+
9
5
32
.
89. Составьте программу нахождения наименьшего общего кратного двух на-
туральных чисел .
90. Составьте программу, которая проверяет, является ли заданное число со-
вершенным . Совершенным называется натуральное число, равное сумме
всех своих делителей (исключая само число). Например, 28=1+2+4+7+14.
91. Напечатайте все простые трехзначные числа.
92. Пусть дано натуральное число n (
n
3
). Получите
ν
n
, если
ν
ν
01
0
=
=
;
ν
2
15
,
;
νννν
iiii
i
i
i=
+
+
−=
−−
1
1
34
2
123
,,,...
93. Вычислите среднее арифметическое 30 случайных чисел , больших полу-
суммы первых двух .
94. Вычислите:
а)
y =
+
+
+
+
1
1
1
3
1
5
1
109
1
111
...
, б )
y
n
n
=
+
+
+
>
1
2
3
1
!
!
!
!,
.
95. Составьте программу для нахождения и печати всех пифагоровых чисел , не
превышающих 20.
96. Пусть вводится последовательность вещественных чисел , оканчивающаяся
нулем . Определите, содержит ли последовательность хотя бы одну пару
равных соседних элементов .
97. Пусть вводится последовательность вещественных чисел , оканчивающаяся
нулем . Определите номер числа по абсолютной величине самого близкого к
своему номеру .
98. Индивидуальное задание, которое передается преподавателю перед нача-
лом собеседования по этой теме:
Номер индивидуального задания определяет преподаватель!
Опишите постановку задачи , создайте математическую модель ее реше-
ния, разработайте блок-схему и работающую программу, проведите тес -
тирование и отладку программы , обдумайте полученные результаты .
Индивидуальные задания
1. Составьте программу для нахождения всех автоморфных чисел в отрезке
[
]
mn,
. Автоморфным называется целое число, которое равно последним
числам своего квадрата. Например, 5
2
=25, 6
2
=36, 25
2
=625.