Определить сколько слов в тексте содержит не более 3 букв. (в паскаль) вроде на , пож-! надо

 

program slova;

uses crt;

var s, s1: string;

        i, k: integer;

begin

  clrscr;

  writeln ('vvedite text: ');

  readln (s1);

  write ('slova soderjaschie ne bolee 3-h bukv: ');

  for i: =1 to length(s) do

  begin

  if s[i]< > ' ' then

    begin

    s1: =s1+s[i];

    k: =k+1;

    end

  else

    if k< =3 then

    begin

      write (', ',s1);

      k: =0;

      delete (s1,1,3);

    end

    else

      begin

        k: =0;

        delete (s1,1,15);

      end;

  end;  

readln;

end.

 

 

вроде так, но у меня щас нету компилятора, так что проверить не могу. если что-то будет ругаться, или вопросы какие - пиши в личку.

 

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 function bintooct(s: string): string; // переводит двоичную триаду в восьмеричную цифру begin   case s of   '000': result: ='0';   '001': result: ='1';   '010': result: ='2';   '011': result: ='3';   '100': result: ='4';   '101': result: ='5';   '110': result: ='6';   '111': result: ='7';   end end; begin   var s2: =readlnstring('введите целое двочное число');   var k: =s2.length mod 3;   if k< > 0 then s2: =(3-k)*'0'+s2; // дополнить до кратной 3 длины   var s8: ='';   for var i: =1 to s2.length div 3 do       s8: =s8+bintooct(copy(s2,3*i-2,3));   writeln(s8); end. пример введите целое двочное число 10101100001 2541

Если имеется в виду произведение наибольших в каждой строке элементов, то тогда так: var     i,j,p: integer;     max: array[1..5]of integer;     a: array[1..5,1..5]of integer; begin p: =1; for i: =1 to 5 do   for j: =1 to 5 do     a[i,j]: =random(-10,10); a[1,1]: =random(-10,-1); for i: =1 to 5 do   begin   for j: =1 to 5 do     begin     write(a[i,j]: 4);     if a[i,j]> max[i] then max[i]: =a[i,j];     end;   p: =p*max[i];   writeln;   end; writeln('p=',p); end.