Модератор
1004
Советник
688
Академик
419
Специалист
401
Профессионал
186
Мастер-Эксперт
185
Профессор
163
8.3.1
01.03.2021
JS: 2.4.1
CSS: 4.4.0
jQuery: 3.5.1
Создание программ на языках Pascal, Delphi и Lazarus.
Администратор раздела: Зенченко Константин Николаевич (Старший модератор)
|
|
Перейти к консультации №: |
|
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Используя оператор условного перехода, напишите программу,
которая запрашивает у пользователя номер одного из осенних месяцев, и выводит количество дней в
этом месяце. Программа должна проверять, является ли введенный месяц осенним.
Pascal
Состояние: Консультация закрыта
Здравствуйте, Barsik22!
var m,d:integer;
begin
repeat
write('Введите номер осеннего месяца m=');
readln(m);
until m in [9..11]; //поверка правильности ввода
if m=10 then d:=31
else d:=30;
write('Количество дней=',d)
end.
 |
Консультировал: puporev (Профессор) Дата отправки: 23.02.2021, 13:23
5
нет комментария----- Дата оценки: 23.02.2021, 13:33 |
Рейтинг ответа:
+1 Сообщение модераторам Отправлять сообщения |
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.
