Çalışın kodlarınızda goto istifadə etməyəsiniz.
[code]
program Cavabler_net;
var a,b,min,say,i,ebob,k:integer;
begin
k:=0;
writeln('a ve b-nin qiymetlerini daxil edin:');
readln(a,b);
if(a>b) then min:=b
else min:=a;
if(a mod b=0) then k:=1;
for i:=1 to min do begin
if(k<>1) then begin
if(i<>min) then begin
if ((a mod i=0) and (b mod i=0)) then begin
ebob:=i;
end;
end;
end
else
if ((a mod i=0) and (b mod i=0)) then begin
ebob:=i;
end;
end;
writeln('Daxil olunan ededlerin ebobu: ',ebob);
readln;
end.
[/code]
Azərbaycanda istifadəçi sayına görə ən böyük sayt hansıdır?