EBOBun tapilmasi tƏlƏb olunur.proqrami yazmisam.amma sehv var.duzeliş ede bilersiz zehmet olmasa.
program ebob;
label 1;
var a,b,c:real;
begin readln(a,b);
1. if ab then a:=a-b else b:=b-a;
if ab then go to 1 else c:=a;
writeln('c=',c);
end.
ƏBOB proqramı
Yadda saxlama
Üzvlər üçün giriş
Software Developer - 615 xal
E. Hacı - 607 xal
Onar Alili - 526 xal
Dilsuz - 448 xal
Cabbarov Sübhan - 434 xal
Maqa - 346 xal
Ruslan Butdayev - 328 xal
Namiq Bəndəli - 297 xal
U.Tarlan - 244 xal
Meherremoff - 234 xal
Sistemə daxil olmuş 23234 sualdan 92%-dən çoxu cavablandırılmışdır.
E-Haci.net istehsalı. © 2010-2024
Verilmiş cavablar və yazılan şərhlər (2 cavab var)
1
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.1
Çalışın kodlarınızda goto istifadə etməyəsiniz.
Sual verin
Cavab verin