Создать текстовый файл,
10-11 класс
|
состоящий из 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.
сделанный через блокнот
Ясно, сделаю попозже
Другие вопросы из категории
на «4» и «5»?
Найти минимальное число из 10 случайных чисел. Диапазон генерации случайного числа задается
пользователем в начале работы программы.
(использовать форматированный ввод/вывод)
Читайте также
наперед и результат записать в файл
порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.
в килобайтах.
2) Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через это соединение заняла 2 минуты. Определите размер файла в килобайтах.
3) Сколько секунд потребуется обычному модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет каждого пикселя кодируется тремя байтами?
4) Скорость передачи данных через модемное соединение равна 51 200 бит/с. Передача текстового файла через это соединение заняла 10 с. Определите, сколько символов содержал переданный текст, если известно, что он был представлен в 16-битной кодировке Unicode.
5) Скорость передачи данных через ADSL-соединение равна 128000 бит/с. Передача текстового файла через это соединение заняла 1 минуту. Определите, сколько символов содержал переданный текст, если известно, что он был представлен в 16-битной кодировке Unicode.
6) Информационное сообщение объемом 2.5 Кбайт передается со скоростью 2560 бит/мин. За сколько минут будет передано данное сообщение?
элементов), определить количество символов в этом файле, включая пробелы (команда
Файл —» Свойства), и вычислить количество информации в этом файле.
Скорость передачи данных через модемное
соединение равна 51 200 бит/с. Передача текстового файла через это соединение
заняла 10 с. Определите, сколько символов содержал переданный текст, если
известно, что он был представлен в 16-битной кодировке Unicode.