Иллюстрированный самоучитель по Turbo Pascal для начинающих

Выбор. If.

87. Написать программу, которая.выводит пример на умножение двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат. Ниже представлен рекомендуемый вид экрана во время работы программы.

Сколько будет 6x7?
Введите ответ и нажмите Enter
 › 56
Вы ошиблись. 6x7=42.
Enter

88. Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат. Ниже представлен рекомендуемый вид экрана во время работы программы.

Сколько будет 83-17?
Введите ответ и нажмите Enter
 › 67
Вы ошиблись. 83-17=66.

89. Написать программу, которая проверяет, является ли четным введенное пользователем целое число. Ниже представлен рекомендуемый вид экрана программы во время ее работы.

Введите целое число и нажмите Enter
 › 23
Число 23 – нечетное.

90. Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры. Ниже представлен рекомендуемый вид экрана программы во время ее работы.

Введите целое число и нажмите Enter
 › 451
Число 451 нацело на три не делится.

91. Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям. Ниже представлен рекомендуемый вид экрана программы во время ее работы.

Вычисление стоимости разговора по телефону.
Введите исходные данные:
Длительность разговора (целое количество минут) › 3
День недели (1 – понедельник,… 7 – воскресенье) › 6
Предоставляется скидка 20%.
Стоимость разговора: 5.52 руб.

92. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) -100. Рекомендуемый вид экрана во время работы программы приведен ниже.

Введите в одной строке через пробел
рост (см) и вес (кг) затем нажмите Enter
 › 170 68
Вам надо поправиться на 2.00 кг.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.