Question

Саша, учась в 8-ом классе, решил придерживаться распорядка дня. Напишите программу, которая в зависимости от указанного времени, определяет деятельность Саши.

Answer 1

применить оператор CASE как в этой задаче
Program lab;
Uses crt;
Var
k: integer;
begin
clrscr;
write('Ââåñòè íîìåð ìåñÿöà --> '); readln(k);
case k 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.