Pamodos ~00:20, visu nakti zadrotoju warcraft 3 TFT, aizgāju uz skolu, sēžu tagad jau 7. stundu. Diezgan sūdaina diena, ja ņem vērā, ka neesmu dabūjis nevienu atzīmi, bet varbūt arī labi, jo tas varētu būt 2.. Atrodos programmēšanas stundā, kā vienmēr īsti darīt nav ko, bišk jāpalauza galva pie tā paskāla, vienvārdsakot uzdošu jums uzdevumu. Dota programma (pareizāk gan, manis taisīta):

program burti;
uses crt;
var t:text;
	i,b:char;
	sk:integer;
begin
clrscr;
writeln;
assign (t, 'H:\teksts.txt');
reset (t);
repeat
read (t,i);
write (i);
if i=' ' then sk:=sk+1;
until Eof(t);
writeln; writeln;
writeln ('Faila ir ' ,sk, ' vardi');
close (t);
readln;
end.

Programma atver doto .txt failu un saskaita cik ir vārdu, bet šī programma strādā tikai, ja lietots viena atstarpe starp vārdiem. Tātad man vajag, lai tā strādātu arī kad lietotas vairākas. Mainīt var visu, ka tik strādātu, bet varu pačukstēt, ka jāpievieno un jāizmaina 1-2 rindiņas. Pašlaik es atbildi nezinu, ja uzzināšu, tad kautkad uzrakstīšu pareizo atbildi, ja tomēr neuzzināšu un kāds to izveidos pareizi, paldies