Гостевая книга - САЙТ ДЛЯ ШКОЛЬНИКОВ И СТУДЕНТОВ(ИНФОРМАТИКА,МАТЕМАТИКА)

10. Николай Denisov [Nikolay] (22.12.2011 00:48)

0

Ваше сочувствие не требуется. спасибо biggrin

9. Вольный (04.12.2011 18:20)

-1

Могу только по сочувствовать... Но видал и по хуже..
Если попросите о помощи, могу помочь...

8. Николай Denisov [Nikolay] (11.07.2011 14:39)

0

Эльвира (05.07.2011 01:49)
А почему столько ошибок в словах И ТЕКСТАХ на сайте???
Эльвира, скажите, если вам не трудно, какие именно ошибки Вы имеете ввиду smile

7. Эльвира (05.07.2011 01:49)

-1

А почему столько ошибок в словах И ТЕКСТАХ на сайте??? smile

6. Николай Denisov [Nikolay] (14.09.2010 00:44)

0

не забывайте оставлять отзывы о сайте. Ваше мнение очень важно для нас

5. Николай Denisov [Nikolay] (22.11.2009 20:02)

0

http://veseluha.ucoz.ru/news/uchebnik_shaucukovoj/2009-10-25-12

4. Сулейман Зайнетдинов [mr_aurum] (19.11.2009 21:19)

+1

А вы можете залить сюда учебник Шауцуковой?

3. Николай Denisov [Nikolay] (08.10.2009 19:30)

0

список ссылок по программированию (неполный)
http://comp-science.narod.ru/podg.html
http://acmp.ru/
http://www.olympiads.ru/

P.S. кто ищет, тот всегда найдет

2. Azamat (06.10.2009 14:52)

+1

Коля куллл и респект!!! вот так вот и все начинается... biggrin

1. Николай Denisov [Nikolay] (22.07.2009 08:29)

0

ПРОГРАММА ДЛЯ ПОДСЧЕТА КОЛИЧЕСТВА СЛОВ В ФАЙЛЕ НАПИСАНА НА ЯЗЫЕК ПАСКАЛЬ

var
infile,outfile:text;
s:string;
i,K:integer;
begin
assign (infile,'1.txt');
assign (outfile,'2.txt');
reset(infile);
rewrite(outfile);
while not Eof(infile) do
begin
readln(infile,s);
K:=0;
for i:=1 to length (s) do
IF (S[I]=' ') OR (S[I]=#83) THEN K:=K+1;
IF K<length (s) THEN writeln(outfile,s);
end;
close (infile);
close (OUTfile);
end.