Цитата:
Сообщение от Lotan
Как это кодом записать?
|
Ну... если Вы, как утверждаете, "написали" выложенную программу, то никаких проблем возникнуть не должнО. В раздел констант вводите что-нибудь типа
Glas=['а','е','и'... и т.д до 'я'];
Sogl=['б','в','г'... и т.д до 'щ'];
В раздел описания переменных
N_glas, N_sogl, k:Integer;
В конце для каждого найденного палиндрома организуете цикл вида
N_glas:=0;
N_sogl:=0;
For k:=1 to length(stmp) do
begin
if stmp[k] in Glas then Inc(N_glas);
if stmp[k] in Sogl then Inc(N_sogl);
end;
If N_glas>N_sogl then writeln(stmp);
И всего делов-то!