Developing.ru

Код: Выделить всё

program task1;

function f(s:string):integer;
var i,r:integer;
begin
  r:=0;
  for i:=1 to length(s) do if s[i]=' ' then inc(r);
  f:=r;
end;

function max(x,y:integer):integer;
begin
  if x>y then max:=x else max:=y;
end;

var
  a,b:string;

begin
  write('Type the string A:'); Readln(a);
  write('Type the string B:'); Readln(b);
  writeln('max(f(a),5)*max(f(b),10)=',max(f(a),5)*max(f(b),10));
end.