
16.05.2009, 23:29
|
|
Постоянный
Регистрация: 18.03.2008
Сообщений: 411
С нами:
9551846
Репутация:
2389
|
|
Код:
program asd;
const
a:array [1..12] of string[10]=('zima','zima','vesna','vesna','vesna','leto','leto','leto','osen','osen','osen','zima');
var
i:byte;
begin
readln (i);
writeln (a[i]);
readln;
end.
Последний раз редактировалось Godfather Bulan; 17.05.2009 в 00:01..
|
|
|