I can't run my program to do my IT homework. I think there's can be some problem with command "length" in app.
P.S. Great thanks to you for creating "Pascal N-IDE" it is very helpful and cool :)
There is program:
Program kek;
var
f: text;
k, max, i: integer;
a: string;
begin
Assign(f, '/storage/sdcard0/24_demo.txt');
reset(f);
read(f, a);
close(f);
max := 0;
for i := 1 to length(a) - 1 do
if (a[i] = a[i + 1]) and (a[i] = 'Z') then
begin
k := k + 1;
if k > max then
max := k ;
end
else
k := 1;
writeln(max);
end.
I can't run my program to do my IT homework. I think there's can be some problem with command "length" in app. P.S. Great thanks to you for creating "Pascal N-IDE" it is very helpful and cool :)
There is program:
Program kek; var f: text; k, max, i: integer; a: string; begin Assign(f, '/storage/sdcard0/24_demo.txt'); reset(f); read(f, a); close(f); max := 0; for i := 1 to length(a) - 1 do if (a[i] = a[i + 1]) and (a[i] = 'Z') then begin k := k + 1; if k > max then max := k ; end else k := 1; writeln(max); end.