Question

50 puncte+coroana
ELABORAȚI O FUNCTIE care alculează
b) media numerelor întregi i,j,k,m
c) minimumul din numerele a,b,c,d
d) numărul de vocale într-un șir de caractere
e) numărul de consoane într-un șir de caractere
f) rădăcina ecuației ax+b=0
g)cel mai mic divizor al numărului întreg n>0, diferit de 1

Answer 1

program a;
var me:real;
      i,j,k,m:integer;
     function media(i,j,k,m:integer):real;
       begin 
           me:=(i+j+k+m)/4;
           media:=me;
      end;
begin
     readln(i);
     readln(k);
     readln(j);
     readln(m);
     me:=media(i,k,j,m);
     writeln('media este ',me);
end.

program b;
  var a,b,c,d,e:integer;
     function minimumul (a,b,c,d:integer):integer;
      begin 
       e:=a;
       if b<e then e:=b;
       if c<e then e:=c;
       if d<e then e:=d;
       minimumul:=e
     end;
begin
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  e:=minimumul(a,b,c,d);
  writeln('minimumul este ',e);
end.

program c;
  var s:string;
        n:inetger;
     function vocale (s:string):integer;
       var i:integer;
       begin 
         for i:=1 to length(s) do
           if s[i] in ['i','o','u','y','e','a'] then n:=n+1;
        vocale:=n;
     end;
begin
  readln(s);
  n:=vocale(s);
  writeln('numarul de vocale este ',n);
end.

program d;
  var s:string;
        n:inetger;
     function consoane(s:string):integer;
       var i:integer;
       begin 
         for i:=1 to length(s) do
           if s[i] in ['q','w','r','t','p','s','d','f','g','h','j','k,'l','z','x','c','v','b','n','m'] then n:=n+1;
        consoane:=n;
     end;
begin
  readln(s);
  n:=consoane(s);
  writeln('numarul de vocale este ',n);
end.

program e;
  var  a,b:inetger;
          x:real;
     function ecuatzie(a,b:integer);real;
       begin 
         x:=-b/a
     end;
begin
  readln(a);
  readln(b);
  x:=ecuatzia(a,b);
  writeln('radacina ecuatziei este ',x);
end.

program g;
    function div (n:integer):integer;
        var i:integer;
      begin
        for i:= 2 to n do 
           if n mod i=0 then begin div:=i;breack;end;
             end;
   var n,d:integer;
      begin 
        readln(n);
        m:=div(n);
        writeln('divizorul este ',m);
end.