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

0 голосов
30 просмотров

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


Информатика (12 баллов) | 30 просмотров
0

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

0

любую для turbo pascal

Дано ответов: 2
0 голосов

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

(1.8k баллов)
0

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

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

                   end;
end.
(9.6k баллов)
0

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