Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 14.

Определение номера квартала по введенному номеру месяца

Program Digit3;
  var
      Num:integer;
begin
  write('Введите номер месяца:');
  readln(Num);
  case Num of
    1,2,3 :write!n('Первый квартал');
    4,5,6 :writeln('Второй квартал');
    7..9 : writeln('Третий квартал');
{ метка 7. .9 -интервал чисел от 7 до 9; то же самое, что и 7,8.9 }
    10..12: writeln('Четвертый квартал')
    else writeln('Некорректный ввод')
  end;
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100