Написать программу на языке паскаль, в которой определяется какому медли года
Написать программку на языке паскаль, в которой определяется какому медли года принадлежит введённый с клавиатуры порядковый номер месяца.За основу взято международное соглашение январь-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.
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());
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов