Question

Elaborati o procedura care va determina daca caracterul dat este o vocala.
program pascal sa fie .
va rog urgent.

Answer 1

Program P8;
var a, b: integer;
function cmmdc(a,b:integer):integer;
begin 
    while a<>b do     
    if a>b then a:=a-b           
              else b:=b-a;                
 cmmdc:=a;
end;
begin     
writeln('Introduceti primul numar');  
readln(a); 
  writeln('Introduceti al doilea numar');    
 readln(b);  
   writeln('Cel mai mare divizor comun este:', cmmdc(a,b));