В слове пол изменить первую букву сколько существительных слов получится
выбирай procedure MakeArr(a: array of char); begin for var i := 0 to a.length - 1 do begin Write(a[i]); end; end;begin var a: string := 'Пол'; var c:= a.ToCharArray; for var i := 192 to 223 do begin c[0] := chr(i); MakeArr(c); writeln; end;end.
Вол Гол Дол Кол Только это вспомнила
Пол - мол, кол, вол, бол, тол, дол, гол
Ответ - 7 слов получится