(В паскале)
Случайным образом вводится номер месяца, выдать его название.
дам 25 баллов, если всё правильно будет
Ответы
Ответ:
(см. объяснение)
Объяснение:
Решение в 1 строчку кода:
##
seq('Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь').ElementAt(ReadInteger - 1).Print;
Возможно также решение через case или if.
Задание выполнено!
var month: byte;
begin
writeln('ââåäèòå ÷èñëî ìåñÿöà');
readln(month);
case month 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('ñåé÷àñ äåêàáðü');
end;
end.
Відповідь:
Пояснення:
program ;
var a: integer;
begin
writeln('ââåäèòå ÷èñëî ìåñÿöà');
readln(a);
if a=1 then writeln('ñåé÷àñ ÿíâàðü');
if a=2 then writeln('ñåé÷àñ ôåâðàëü');
if a=3 then writeln('ñåé÷àñ ìàðò');
if a=4 then writeln('ñåé÷àñ àïðåëü');
if a=5 then writeln('ñåé÷àñ ìàé');
if a=6 then writeln('ñåé÷àñ èþíü');
if a=7 then writeln('ñåé÷àñ èþëü');
if a=8 then writeln('ñåé÷àñ ');
if a=9 then writeln('ñåé÷àñ ñåíòÿáðü');
if a=10 then writeln('ñåé÷àñ îêòÿáðü');
if a=11 then writeln('ñåé÷àñ íîÿáðü');
if a=12 then writeln('ñåé÷àñ äåêàáðüü');
readln;
end.