Написать программу на языке паскаль, в которой определяется какому медли года

Написать программку на языке паскаль, в которой определяется какому медли года принадлежит введённый с клавиатуры порядковый номер месяца.За основу взято международное соглашение январь-1; декабрь-12.

Задать свой вопрос
Витек Годякин
на c есть смысл писать? усвоишь метод?
Арфулов Ромка
Да
Арсианова Алла
Могу написать на паскале, написать?
Аделина Губонина
Буду очень благодарна)
2 ответа
Var a:integer;
Begin
  Write('Введите номер месяца: '); readln(a);
case a of
1:writeln('Январь - Зима');
2:writeln('Февраль- Зима');
3:writeln('Март- Весна');
4:writeln('Апрель- Весна');
5:writeln('Май- Весна');
6:writeln('Июнь-Лето');
7:writeln('Июль- Лето');
8:writeln('Август- Лето');
9:writeln('Сентябрь-Осень');
10:writeln('Октябрь -Осень');
11:writeln('Ноябрь- Осень');
12:writeln('Декабрь - Зима');
else writeln('Введено не верное число. Введите число от 1 до 12');
end;
end.


Или упрощённый вариант:
Var a:integer;
Begin
Write('Введите номер месяца: '); readln(a);
case a of
1..2:writeln('Зима');
3..5:writeln('Весна');
6..8:writeln('Лето');
9..11:writeln('Осень');
12:writeln('Зима');
else writeln('Введено не верное число. Введите число от 1 до 12');
end;
end.
Эвелина
Я бы тоже case брал, но взгляни, там время года, а не месяца
Людмила
немножко ошибся)
Antonina Germejer
а так сойдёт?)
Гальдберг Ванька
во, иное дело
Нюхряева Ева
можно было сделать так: "1..3:write('зима');" это бы сократило кол-во строк, но не писало бы времена года
Полина Брусованкина
то есть не писало бы заглавие месяйца*
Артём
щас напишу упрощёный вариант кода
Рамбам Даниил
Громадное спасибо)
Евгения
Var a:integer;Begin Write('Введите номер месяца: '); readln(a);case a of1..2:writeln('Зима');3..5:writeln('Весна');6..8:writeln('Лето');9..11:writeln('Осень');12:writeln('Зима');else writeln('Введено не верное число. Введите число от 1 до 12');end;end.
Int mesyac;
Console.WriteLine("Введите месяц:");
mesyac = Convert.ToInt32(Console.ReadLine());
if (mesyac == 12 mesyac == 1 mesyac == 2)

Console.WriteLine("Зима");

if (mesyac gt; 2 amp;amp; mesyac =lt; 5)

Console.WriteLine("Весна");

if (mesyac gt; 5 amp;amp; mesyac =lt; 8)

Console.WriteLine("Лето");

if (mesyac gt; 8 amp;amp; mesyac =lt; 11)

Console.WriteLine("Осень");

Console.ReadKey());
Вовка Толпугов
ошибочку допустил, ща исправлю
Алёна Бодрозина
всё так сложно когда глядишь на не знакомый язык и всё так легко когда глядишь на свой паскаль, который знаешь :D
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость

Физика.

Из точки м выходят 3 луча MP MN и MK причём

Геометрия.

выпиши в свою тетрадь те правила этикета которые тебе не были

Разные вопросы.

Анна хорошо учится у неё много подруг свободное от учёбы время

Обществознание.

10) Килограмм конфет дороже килограмма печенья на 52 р. За 8

Математика.

Во сколько раз число атомов кислорода в земной коре больше числа

Химия.

Составить монолог от имени дневника двоечника 7-10 предложений

Русский язык.

Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо

Разные вопросы.

Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных

Разные вопросы.

Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей

Математика.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт