Создать текстовый файл,

состоящий из 2-3 предложений. Определить, есть ли в нем английские слова и

сколько.

Question

Информатика

Слава

5 февраля, 08:52

Создать текстовый файл,

состоящий из 2-3 предложений. Определить, есть ли в нем английские слова и

сколько.

+3

Ответы (1)

Знаете ответ на вопрос?

Эллина · Answer 1

Предполагается, что файл имеет имя 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.

Создать текстовый файл,состоящий из 2-3 предложений. Определить, есть ли в нем английские слова исколько.

Создать текстовый файл,

состоящий из 2-3 предложений. Определить, есть ли в нем английские слова и

сколько.