Показать сообщение отдельно

  #15  
Старый 16.05.2009, 23:29
Godfather Bulan
Постоянный
Регистрация: 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..
 
Ответить с цитированием