begin var m := Arr(‘Зима’, ‘Зима’, ‘Весна’, ‘Весна’, ‘Весна’, ‘Лето’, ‘Лето’, ‘Лето’, ‘Осень’, ‘Осень’, ‘Осень’, ‘Зима’); var k := ReadInteger(‘Введите номер месяца:’) — 1; if k.InRange(0, 11) then Println(m[k]) else Println(‘Недопустимый номер месяца’)end.
Введите номер месяца: 11
Осень
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: uchiru.net
Составить программу которая по введенному номеру месяца
August 2021 1 10 Report
Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем.
Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 20), обозначающего денежную единицу, дописывает слово «Копейка» в правильной форме. Например, 5 копеек, 1 копейка и т. д.
Получаем название месяца или дня недели по его номеру в Excel
Answers
begin
write(‘Введите номер месяца: ‘);
readln(a);
case a of
1: writeln(‘Январь.31 день’);
2: writeln(‘Февраль.29 дней’);
3: writeln(‘Март.31 день’);
4: writeln(‘Апрель.30 дней’);
5: writeln(‘Май.31 день’);
6: writeln(‘Июнь.30 дней’);
7: writeln(‘Июль.31 день’);
8: writeln(‘Август.31 день’);
9: writeln(‘Сентябрь.30 дней’);
10: writeln(‘Октябрь.31 день’);
11: writeln(‘Ноябрь.30 дней’);
12: writeln(‘Декабрь.31 день’);
end;
end.
2.
var
a:integer;
begin
writeln(‘Введите число: ‘);
readln(a);
case a of
1: write(a, ‘ Копейка’);
2..4: write(a, ‘ Копейки’);
5..20: write(a, ‘ Копеек’);
end;
end.
Источник: scholar.tips
Словесное наименование сезона по номеру месяца на Pascal
Словесное наименование сезона по номеру месяца.
var Month: integer; Season: string; begin write(‘Введите номер месяца: ‘); readln(Month); case Month of 1,2,12: Season := ‘Зима’; 3..5: Season := ‘Весна’; 6..8: Season := ‘Лето’; 9..11: Season := ‘Осень’; else Season := ‘Вы ввели неверный номер месяца’; end; writeln(‘Это ‘,Season) end.
Просмотров: 3192
10.02.2015, 09:01 —
Источник: abcvg.com