| Автор | Информатика. |
|---|
Помогите решить задачку в паскале:)за вознаграждение в размере 15к золота!)
Нужно написать программу в паскале,которая подсчитывает количество букв в тексте. |
var
Text: string;
i, kol_slov, kol_bukv: integer;
begin
Text:='НАШ ТЕКСТ ДЛЯ ПРОВЕРКИ';
for i := 1 to Length(Text) do
begin
if Pos(Text[ i ], ' ') > 0 then
begin
kol_slov:=kol_slov+1;
delete(Text,Pos(' ',Text),1);
end;
if length(text)=i then
begin
if Pos(Text[length(text)], ' ') = 0 then
kol_slov:=kol_slov+1;
end;
end;
kol_bukv:=length(text);
end; |
| А под словом Паскаль понимался обычно философ. |
Если четко следовать ТЗ ТС, то код, любезно предоставленный Luciy Aideys будет таким:
program myProgram;
var
Text: string;
begin
Text:='НАШ ТЕКСТ ДЛЯ ПРОВЕРКИ';
writeln(length(text));
end; |
Text:='НАШ ТЕКСТ ДЛЯ ПРОВЕРКИ';
Лучше будет read(Text); наверное
Ну и перед end вставить вывод write(kol_bukv) |
для Luciy Aideys:
бох ты ж мой, зачем так мудрено-то?
for i := 1 to Length(Text) do
if text[i]<>' ' then
kol_bukv:=kol_bukv+1;
Фсё, посчитали с тем же успехом, исключив пробелы. Надо исключить другие символы - добавляем в условие через and. А лучше множествами, но это не для школьников. |
