Question

Написать программу, определяющую номер квартала по введеному номеру месяца, используя оператор case.

Answer 1

var a,i,k:integer;
begin
Writeln ('Введи номер месяца');
Readln (k);
if (k>0) and (k<13) then
case k of
1..3: writeln ('Первый квартал');
4..6: writeln ('второй квартал');
7..9: writeln ('третий квартал');
10..12: writeln ('четвертый квартал');
End
else writeln ('неверный ввод');
Readln;
end.