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.
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.
Verilmiş cavablar və yazılan şərhlər (2 cavab var)
1
1
Çalışın kodlarınızda goto istifadə etməyəsiniz.
Sual verin
Cavab verin