EBOBun tapilmasi tƏlƏb olunur.proqrami yazmisam.amma sehv var.duzeliş ede bilersiz zehmet olmasa.
1 | program ebob; |
2 | label 1; |
3 | var a,b,c:real; |
4 | begin readln(a,b); |
5 | 1. if ab then a:=a-b else b:=b-a; |
6 | if ab then go to 1 else c:=a; |
7 | writeln('c=',c); |
8 | end. |
Verilmiş cavablar və yazılan şərhlər (2 cavab var)
1
1program Cavabler_net;2var a,b,min,say,i,ebob,k:integer;3begin4k:=0;5writeln('a ve b-nin qiymetlerini daxil edin:');6readln(a,b);7if(a>b) then min:=b8else min:=a;9if(a mod b=0) then k:=1;10for i:=1 to min do begin11if(k<>1) then begin12if(i<>min) then begin13if ((a mod i=0) and (b mod i=0)) then begin14ebob:=i;15end;16end;17end18else19if ((a mod i=0) and (b mod i=0)) then begin20ebob:=i;21end;22end;23writeln('Daxil olunan ededlerin ebobu: ',ebob);24readln;25end.1
Çalışın kodlarınızda goto istifadə etməyəsiniz.
Sual verin
Cavab verin