Сейчас: Воскресенье, 08.02.2026, 19:11
  • Страница 1 из 1
  • 1
Составьте программу, которая по номеру введенного месяца выв
Администратор
Offline
Дата: Пятница, 03.01.2014, 19:24 | Сообщение # 1
Помощник
Группа: Администраторы
Сообщений: 167
Награды: 0
Репутация: 60
Составьте программу, которая по номеру введенного месяца выводит квартал года.
 
Администратор
Offline
Дата: Пятница, 03.01.2014, 19:24 | Сообщение # 2
Помощник
Группа: Администраторы
Сообщений: 167
Награды: 0
Репутация: 60

Код
[i]Program Task36;[i][i]
[i]Var
x : 1..12; {Объявление переменой а диапазоном от 1 до 12}
Begin
Writeln ('Введите номер месяца (1-12) :');
Readln (x); {Ввод переменой а}
Case x of
1, 2, 3 : Writeln ('I квартал'); {Выбор квартала в зависимости от введенного числа и вывод его на экран}
4, 5, 6 : Writeln ('II квартал');
7, 8, 9 : Writeln ('III квартал');
10,11,12: Writeln ('IV квартал');
end;
Readln;
End.
 
  • Страница 1 из 1
  • 1
Поиск: