ƏBOB proqramı

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.

Yadda saxlama
Kateqoriya: Sual . . Qısa keçid.

Verilmiş cavablar və yazılan şərhlər (2 cavab var)

(19:29, 16/12/2014 ) #50719
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.
Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

(00:31, 17/12/2014 ) #50724

Çalışın kodlarınızda goto istifadə etməyəsiniz.

Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Bu suala aid öz sualım var:
Sual verin
Bu suala cavab vermək istəyirəm:
Cavab verin

Cavab verin


Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Elan qutusu

Son cavablar və şərhlər

Triste cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (17 saat əvvəl)

E. Hacı cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (1 gün əvvəl)

Triste cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (7 gün əvvəl)

Software Developer cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (7 gün əvvəl)

Triste cavab verdi - Google Adsense vergi (7 gün əvvəl)

E. Hacı cavab verdi - Xif mn kodu (15 gün əvvəl)

Khagrov cavab verdi - Axtardığım mahnını tapa bilmirəm kömək edin (34 gün əvvəl)

E. Hacı cavab verdi - Dünəndən Kompüterlə Twitter/X və Pinterest -ə girə bilmirəm. (41 gün əvvəl)

orkhanrza cavab verdi - AZ9095də bağlama qalıb (46 gün əvvəl)

Ismayil1997 cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (55 gün əvvəl)

revan orucov cavab verdi - Bakıda evə 100mbps+ internet verən provayder var? (59 gün əvvəl)

E. Hacı cavab verdi - WordPress sistemli saytda Facebook və İnstagram platformalarına özəl target_blank tənzimlənməsi haqqında... (61 gün əvvəl)

Jurnalist cavab verdi - WordPress sistemli saytda Facebook və İnstagram platformalarına özəl target_blank tənzimlənməsi haqqında... (61 gün əvvəl)

asssa1 cavab verdi - Riyazi proqramlar üçün proqram (63 gün əvvəl)

Aleks cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (69 gün əvvəl)

Software Developer - 615 xal

E. Hacı - 608 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ş 23288 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

E-Haci.net istehsalı. © 2010-2024