Автор: jackal 5.03.2003 16:49
Привет!!!
Спасибо этому форуму за помощь которую он оказывает!!
Не могли бы вы мне помочь написать код на следующие задачки?:
1. Напечатать первые вхождения букв в текст
и еще одна
2. Напечатать все согласные глухие буквы (к,п,с,т,ф,х,ц,ч,ш,щ), которые есть во втором слове текста.
Спасибо за внимание
Автор: sandman 5.03.2003 17:51
2)
Код
const
g=['е','ы','а','о','э','я','и','ю','Ё'];
ss=['й','ц','к','н','г','ш','щ','з','х','ъ','ф','в','п','р','л','д','ж','ч','с','м','т','ь','б'];
var
sog, gl :integer;
str :string;
Procedure Find(const str :string; var gl, sog :integer);
var
i :integer;
begin
for i:=1 to length(str) do
begin
if str[i] in g then
inc(gl);
if str[i] in ss then
inc(sog)
end
end;
begin
sog:=0;
gl:=0;
Write(Введите строку из русских букв: ');
Readln(str);
Find(str, gl, sog);
Writeln(согласных', sog, 'гласных', gl, ' букв в слове);
Readln
end.
когда-то писал.. пляши от этого.. тут только множества поменять. сам, надеюсь, справишься.
Автор: Gid 6.03.2003 8:49
Повторяться не буду, но всё-таки
Ты не прав!