Задание 2. Нахождение максимума двух чисел

Найти максимум двух чисел a и b.

 

1. Запустите QBasic.

2. В окне редактирования наберите текст программы:

REM Нахождение максимума двух чисел

CLS

INPUT “Введите значение первого числа a”; a

INPUT “Введите значение второго числа b”; b

IF a >= b THEN

max = a

ELSE

max = b

END IF

PRINT “Максимум двух чисел равен ”; max

 

3. Запустите программу на выполнение.

4. Протестируйте программу при некоторых значениях переменных a и b.

5. Сохраните программу на диске под именем USLOV_2.

Задание 3. Проверка числа на делимость

Составьте программу, выясняющую, является ли натуральное число K делителем числа N.

Число k является делителем числа n тогда и только тогда, когда n делится на k без остатка. Поэтому условием делимости является равенство остатка от деления нулю, т.е. выполнение условия n MOD k = 0.

1. Запустите QBasic.

2. В окне редактирования наберите текст программы:

REM Проверка на делимость

CLS

INPUT “Введите значение числа n”; n

INPUT “Введите значение числа k”; k

IF n MOD k = 0 THEN

PRINT “Число k является делителем числа n“

ELSE

PRINT “Число k не является делителем числа n “

END IF

 

3. Запустите программу на выполнение.

4. Протестируйте программу при некоторых значениях переменных a и b.

5. Сохраните программу на диске под именем USLOV_3.