27.11.2012, 21:23
|
#6 (permalink)
|
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Вот программа тебе:
Цитата:
Program Number1;
Var
MONTH, b, c : integer;
Begin
writeln(‘Введите цифру ‘);
readln(MONTH);
case MONTH of
1, 2, 12 : writeln (‘Зима‘);
3, 4, 5 : writeln (‘Весна‘);
6, 7, 8 : writeln (‘Лето‘);
9, 10, 11 : writeln (‘Осень‘);
end;
else writeln (‘Это число не является месяцем, календарь майя закончился‘);
end;
readln;
End.
|
|
|
|