(В паскале)
Случайным образом вводится номер месяца, выдать его название.
дам 25 баллов, если всё правильно будет
Случайным образом вводится номер месяца, выдать его название.
дам 25 баллов, если всё правильно будет
More Questions From This User See All
Answers & Comments
Ответ:
(см. объяснение)
Объяснение:
Решение в 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.