01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / TOLJAN

program tolik23{Ї®¤бзЁвлў Ґв б।­ҐҐ Є®«-ў® ЎгЄў ў б«®ўҐ Ё б।­ҐҐ
               Є®«-ў® б«®ў ў ЇаҐ¤«®¦Ґ­ЁЁ};
         uses crt;
        var
       t,r:real;
        st,b,c:string;
        n,k:integer;


Function slowo(s:string;sr1:real;n,k:integer):real;
     VAr i:integer;
BEGIN    s:=s+' ';n:=0;k:=0;
    for i:=1 to length(s) do
        if s[i]<>' ' then k:=k+1
   else  n:=n+1;
    write(k);
    sr1:=k/n;
    write('sr1=',sr1:4:2);
end;

FUNCTION predlog(a:string;x,y:integer;sr2:real):real;
                 var j:integer;
begin a:=a+' ';x:=0;y:=0;
    for j:=1 to length(a) do
       begin
   if a[j]:=' ' then x:=x+1
   else if a[j]:='.' then y:=y+1
       end;
   sr2:=x/y;
   write('sr2=',sr2:4:2)
end;

begin
   clrscr;
   writeln('ўўҐ¤ЁвҐ бва®Єг');
   read(st);
   slowo(b,t,n,k);
   predlog(c,r);
   readln;
end.