Программа к задаче 9

INPUT "Введите числа X и Y", x, y

IF x<y THEN k=x ELSE k=y'определение минимального (переменная К) значения из X и Y

FOR i = k TO 1 STEP –1'перебор чисел от К до 1

IF x MOD i=0 AND y MOD i=0 THEN ?"НОД="; i: EXIT FOR 'если Х и Y делятся нацело на i, НОД=i найден

NEXT

Взятие модуля Х по I означает получение целого остатка от деления Х на I. Иными словами, если x MOD i=0, то число X кратно числу i.

Программа	Проверка для N=5
к задаче 8	1 цикл	2 цикл	3 цикл	4 цикл	5 цикл
INPUT n kp=0: s=0: p=1 FOR i=1 TO n INPUT x IF x=0 GOTO 7 IF x<0 THEN s=s+x: GOTO 9 kp=kp+1 p=p*x 9 NEXT ?“Нулей нет” 7 ? s p kp	n=4 i=1<5 x=3 x≠0 x>0 kp=1 p=3	2<5 x=-2 x≠0 x<0, s=-2	3<5 x=1 x≠0 x>0 kp=2 p=3	4<5 x=-3 x≠0 x<0, s=-5	5=5 x=2 x≠0 x>0 kp=3 p=6 Нулей	6>5 нет -5,6,3

@ Задачи для самостоятельного решения.

1). Напечатать все числа, на которые число Х делится без остатка.

2). Вычислить наименьшее общее кратное (НОК) чисел X и Y. НОК – это минимальное число, которое делится на Х и Y без остатка. Общим кратным, конечно, является произведение X на Y, но оно не обязательно наименьшее. Так если Х=6, а Y=9, то X*Y=54. Однако еще есть общие кратные 36 и 18. Т.е. НОК=18. Удобно поиск НОК осуществлять следующим образом. Сначала получить произведение N=XY. Затем, перебирая числа от 2 до N попытаться найти другое значение, которое делится на Х и Y без остатка.

3). Имеется N произвольных чисел Х. Составить программу вычисления и напечатать сумму всех положительных чисел S, число отрицательных чисел К и произведение P всех чисел, не равных нулю. В качестве значений Х использовать последовательные цифры натурального ряда с изменяющимися знаками (Х=0, –1, 2, –3, 4, –5).

4). В банке хранится известное количество N срочных вкладов. О каждом вкладе известно его значение на начало года – X. Размер годовой прибыли зависит от величины вклада. Если вклад до 10000 руб. – прирост составляет 10% годовых, если до 50000 руб. – 12%, если больше – 15%. Вычислить и напечатать значение каждого вклада на конец года Y, а также сумму всех вкладов на начало SX и конец SY года. Задачу решить двумя способами – с оператором цикла и без него. Указание. Процент увеличения вклада удобно отобразить в виде коэффициента. Так при 12% годовых, значение вклада Y на конец года соответствует 1.2X.

Оператор итерационного циклаимеет вид

üWHILE условие