Оператор ветвления : if then else ;

Вложенное ветвление : if then else else ;

Задача. Дан номер месяца. Определить количество дней в этом месяце для невисокосного года.

Program Days; Var m : integer; Begin write('Введите номер месяца: '); readln ( m ); Case m of 2 : writeln(В этом месяце 28 дней); 4,6,9,11 : writeln(В этом месяце 30 дней); 1,3,5,7,8,10,12 : writeln(В этом месяце 31 день); else writeln(Месяца с таким номером нет); end; End.

Case of : ; : ;... : ; else ; end; integer, char

Перечисление значений : 2, 4, 6 Диапазон значений : Смешанная запись : 21, 22, Одно и то же значение переключателя не должно повторяться в разных списках.

Program Test;... {Выводим оценку} if k=3 then writeln('Ваша отметка - 5') ; if k=2 then writeln('Ваша отметка - 4') ; if k=1 then writeln('Ваша отметка - 3 ');...

Program Test;... {Выводим оценку} Case k of 3 : writeln('Ваша отметка - 5'); 2 : writeln('Ваша отметка - 4'); 1 : writeln('Ваша отметка - 3'); end;...

1. Составить 2 программы, используя Case. 2. Работа над проектом : осуществить вывод результатов теста с помощью оператора выбора. 3. (*) Решить дополнительную задачу.