fork download

copy

Delphi/Pascal
 
program String42;
var
 S:String;
 i,Num,NumC,MinNumC:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  NumC:=0;
  MinNumC:=0;
 
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
      NumC:=0;
     end
      else inc (NumC);
    inc(i);
   end;
  if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
  Writeln(MinNumC);
  readln;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program String42;
var
 S:String;
 i,Num,NumC,MinNumC:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  NumC:=0;
  MinNumC:=0;
 
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
      NumC:=0;
     end
      else inc (NumC);
    inc(i);
   end;
  if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
  Writeln(MinNumC);
  readln;
end.

prog.c:1:1: error: unknown type name 'Delphi'
Delphi/Pascal
^
prog.c:1:7: error: expected identifier or '('
Delphi/Pascal
      ^
prog.c:4:1: error: unknown type name 'var'
var
^
prog.c:5:3: error: expected ';' after top level declarator
 S:String;
  ^
  ;
prog.c:5:4: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
 S:String;
   ^
prog.c:6:2: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
 i,Num,NumC,MinNumC:integer;
 ^
prog.c:6:4: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
 i,Num,NumC,MinNumC:integer;
   ^
prog.c:6:8: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
 i,Num,NumC,MinNumC:integer;
       ^
prog.c:6:13: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
 i,Num,NumC,MinNumC:integer;
            ^
prog.c:6:20: error: expected ';' after top level declarator
 i,Num,NumC,MinNumC:integer;
                   ^
                   ;
prog.c:6:21: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
 i,Num,NumC,MinNumC:integer;
                    ^
prog.c:8:1: error: unknown type name 'begin'
begin
^
prog.c:9:9: error: expected parameter declarator
  Write('S: ');
        ^
prog.c:9:9: error: expected ')'
prog.c:9:8: note: to match this '('
  Write('S: ');
       ^
prog.c:10:3: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
  Readln(S);
  ^
prog.c:10:10: error: a parameter list without types is only allowed in a function definition
  Readln(S);
         ^
prog.c:12:3: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
  i:=1;
  ^
prog.c:12:4: error: expected ';' after top level declarator
  i:=1;
   ^
   ;
prog.c:12:5: error: expected identifier or '('
  i:=1;
    ^
prog.c:13:3: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
  Num:=0;
  ^
prog.c:13:6: error: expected ';' after top level declarator
  Num:=0;
     ^
     ;
prog.c:13:7: error: expected identifier or '('
  Num:=0;
      ^
prog.c:14:3: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
  NumC:=0;
  ^
prog.c:14:7: error: expected ';' after top level declarator
  NumC:=0;
      ^
      ;
prog.c:14:8: error: expected identifier or '('
  NumC:=0;
       ^
prog.c:15:3: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
  MinNumC:=0;
  ^
prog.c:15:10: error: expected ';' after top level declarator
  MinNumC:=0;
         ^
         ;
prog.c:15:11: error: expected identifier or '('
  MinNumC:=0;
          ^
prog.c:17:10: error: unknown type name 'i'
  While (i<=Length(S)) do
         ^
prog.c:17:11: error: expected ')'
  While (i<=Length(S)) do
          ^
prog.c:17:9: note: to match this '('
  While (i<=Length(S)) do
        ^
fatal error: too many errors emitted, stopping now [-ferror-limit=]
11 warnings and 20 errors generated.

Standard output is empty