Консультация онлайн #200315: используя оператор условного перехода напишите программу которая запрашивает у

Родились сегодня:
vladymyrlem
antonovich

регистрация

Лидеры рейтинга

Konstantin Shvetski

Модератор

764

Россия, Северодвинск

Алексеев Владимир Николаевич

Мастер-Эксперт

340

Россия, пос. Теплоозёрск, ЕАО

Михаил Александров

Академик

276

Россия, Санкт-Петербург

CradleA

Мастер-Эксперт

210

Беларусь, Минск

Megaloman

Мастер-Эксперт

147

Беларусь, Гомель

alexleonsm

6-й класс

129

epimkin

Профессионал

119

8.8.15

09.05.2021

JS: 2.8.21
CSS: 4.5.5
jQuery: 3.6.0
DataForLocalStorage: 2021-05-13 03:16:01-standard

наверх

Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Ваша подписка: необходимо войти в систему

Консультация онлайн # 200315

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Barsik22 (Посетитель)
Дата: 23.02.2021, 11:33 Консультация закрыта
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Используя оператор условного перехода, напишите программу,
которая запрашивает у пользователя номер одного из осенних месяцев, и выводит количество дней в
этом месяце. Программа должна проверять, является ли введенный месяц осенним.
Pascal

Ответ # 280771 от puporev

Здравствуйте, 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

наверх

Мини-форум консультации # 200315

Barsik22 Посетитель ID: 404364 1	= общий = 23.02.2021, 13:33 Спасибо!

наверх

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.