Напишите пожалуйста программу с case

Question

Напишите пожалуйста программу с case

Comments

какую программу?

---

любую для turbo pascal

Answer 1

Паскаль)
begin
writeln('Введите номер месяца');
readln(mes);
writeln('Введите год');
readln(god);
case mes of
1:write('январь');
2:write('февраль');
3:.....
........
12:write('декабрь');
end;
write(' ',god mod 100);
writeln;
end.

Comments

только я с телефона. а тут вообще не удобно это всё вбивать....

Answer 2

          var   ch: char;
               begin
                  readln(ch);                
                    case ch of                    
                        'n','N': writeln('нет');                    
                        'y','Y': writeln('да')      
                     else writeln('нет значений диапазона')
                   end;
end.

Comments

Программа, при вводе одного из символов: y или Y выведет на экран слово «Да», а при воде n или N – слово «Нет».