Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.Их количество вывести в выходной файл.Плиз ОЧЕНЬ
10-11 класс
|
СРОЧНО!!!!!!!
var
t:text;
s:string:
i,b:integer;
begin
readln(s); {ввод строки}
i:=0;
b:=pos(' ',s);
while b<>0 do
begin
inc(i);
delete(s,b,1);
b:=pos(' ',s);
end;
assign (t, 'C:\primer.txt'); {соединение с файлом primer.txt}
rewrite(t); {подготовка к записи в файл}
write(t,i); {запись в файл значение переменной "i"}
close(t); {завершение работы с файлом}
end.
Создавать файл не обязательно, программа сама его создаст.
Оцените мой ответ если это то, что Вам нужно.
Другие вопросы из категории
задание 1 под 3 точкой ,2 и ,3 задания
Читайте также
отсортировать в порядке возрастания и результат вывести в выходной файл.
вот пример который считает количество едениц в строках с нечётным количеством символов
//---------------------------------------------------------------------------
#include
#include
#include
#include
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
int n,s, i, nst,p,k, len,t=0;
char a[81];
puts(" Input string ");
gets(a);
len = strlen(a);
s=0;
n=0;
a[len+1]='\0';
a[len]=' ';
for(i=0; i<=len; i++)
{
if(a[i]!=' ')
{
n++;
if(a[i]=='1')
t++;
}
else
{
if(n%2!=0)s+=t;
n=0;
t=0;
}
}
printf("\nkoli4ectvo 1= %d", s);
puts("\nPress any key to close ... ");
getch();
return 0;
}
//---------------------------------------------------------------------------
1. Дано число к и файл, содержащий целые числа. Вывести элемент файла с номером к. если такой элемент отсутствует, то вывести 0.
2. Дан файл вещественных чисел. Создать 2 новых файла, в первый из которых содержит строки исходного файла с четными номерами, а второй с нечетными номерами.
<Фамилия> <Имя> <Количество баллов>
Вывести в другой файл фамилии и имена тех учеников, которые получили больше 80 баллов. ( Программу написать на Паскале)
интервала. № 2. Имеется типизированный файл с числами. Изменить все его элементы, порядковый номер которых кратен трем. Новые значения вводятся с клавиатуры. Размер существующего файла неизвестен.