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