Главная
Скриншоты
Главное меню
Главная
Скачать
О языке Паскаль
Что нового
Скриншоты
Общий вид
Intellisense
Проверяемые задания
Web-среда разработки
Описание языка
Школьнику - задачи ЕГЭ
Статьи
Доклады и публикации
Примеры программ
Разработчики
Ссылки
Wiki
Форум
Гостевая книга
Случайная программа
// Наименование сезона
var
Month:
integer
;
Season:
string
;
begin
readln(Month);
case
Month
of
1
,
2
,
12
: Season :=
'Зима'
;
3
..
5
: Season :=
'Весна'
;
6
..
8
: Season :=
'Лето'
;
9
..
11
: Season :=
'Осень'
;
end
;
writeln(Season)
end
.
Баннеры
Скриншоты
Общий вид
Средства Intellisense
Проверяемые задания
© 2007-2012, PascalABCNET Team Южный федеральный университет (РГУ)
Скриншоты
