Ответы
Ответ дал:
0
const m:array[0..11] of string = ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
var n:integer;
begin
Readln(n);
Writeln(m[n mod 12]);
end.
var n:integer;
begin
Readln(n);
Writeln(m[n mod 12]);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад