Информатика, опубликовано 2018-08-22 22:32:27 by Гость
Создать текстовый файл, состоящий из 2-3 предложений. Определить, есть ли в нем английские слова и сколько.
Ответ оставил Гость
Предполагается, что файл имеет имя d:/f.txt.
var
i,n:integer;
s:string;
f:text;
begin
assign(f,d:/f.txt);
reset(f);
readln(f,s);
repeat
if s[1] in [a..z,A..Z] then n:=n+1;
i:=pos( ,s);
delete(s,1,i);
until i=0;
writeln(Английских слов: ,n);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на