Question

По заданному числу (1-12)вывести название соответствующего месяца решить задачу в паскале 1 постановка задачи Величины:N-месяц исходные данные :N результат: Текстовое сообщение(наименование месяцев) 2.Формализация Алг??? Перем.??? Начало Вывод(введите месяц N= '); Ввода(N) program PROJECT var??? begin??? заполните знаки вопроса

Answer 1

Var
    a: array[1..12]of string := ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'авгус', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
    k: integer;

begin
    readln(k);
    writeln(a[k]);
end.

Answer 2

program PROJECT; var N: integer; begin writeln('Введите месяц N = '); readln(N); case N 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('Некорректный месяц'); end; end.