Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Macintosh HD/Users/aleksej/Downloads/132.docx
program fer; const n = 3; var f: text; stroka: string[9]; i, k, g: integer; begin k := 0; g := 0; assign(f, 'C:\Users\СевГУ.DESKTOP-TRLVR9T\Desktop\newf.txt'); Reset(f); while not Eof(f) do begin read(f, stroka); for i := 1 to length(stroka) do begin if stroka[i] <> ' ' then begin k := k + 1; if k = 3 then if i = length(stroka) then begin g := g + 1; k := 0; end; if (k =3) and (i<length(stroka)) and (stroka[i + 1] = ' ') then begin g := g + 1; k := 0; end; end; if not (stroka[i] <> ' ') then k:=0; end; end; writeln(g); end.
run
|
edit
|
history
|
help
0
10 Ariketa
Promo1
Сумма квадратов чисел = n
5
test07
число pi разными способами
Луноход-3
Пузырьковая сортировка массива
45
Project Euler 17 : Number letter count (1000)