По заданному числу (1-12)вывести название соответствующего месяца решить задачу в
По заданному числу (1-12)вывести название соответствующего месяца
решить задачу впаскале
1 постановка задачи
Величины:N-месяц
исходные данные :N
результат: Текстовое сообщение(наименование месяцев)
2.Формализация
Алг???
Перем.???
Начало
Вывод(введите месяц N= ');
Ввода(N)
program PROJECT
var???
begin???
заполните знаки вопроса
Ответ(ы) на вопрос:
Гость
Var
a: array[1..12]of string := ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'авгус', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
k: integer;
begin
readln(k);
writeln(a[k]);
end.
Не нашли ответ?
Похожие вопросы