SUAL VERİN

Ə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.
Sualı verdi: Elçin (16/12/2014)

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
Şifrəni unutmusunuz?

Elan qutusu

Son cavablar və şərhlər

Software Developer cavab verdi - Eynicinsli mal dedikdə nə nəzərdə tutulur? (15 saat əvvəl)

Jorpy cavab verdi - İnformatika muellimi yoxsa sistem administratorluğu? (23 saat əvvəl)

E. Hacı cavab verdi - Kriptovalyuta köçürmələrini VÖEN-ə bağlı bank kartına almağım vacibdir? (1 gün əvvəl)

Software Developer cavab verdi - Sifarişlərin çatdırılması üsulu (1 gün əvvəl)

Jorpy cavab verdi - Ödənişin təsdilənməsini necə öyrənə bilərəm? (2 gün əvvəl)

rdrobert cavab verdi - Ödənişin təsdilənməsini necə öyrənə bilərəm? (2 gün əvvəl)

rdrobert cavab verdi - canada ve america saytlarindan sifaris (2 gün əvvəl)

rdrobert cavab verdi - Sifarişlərin çatdırılması üsulu (2 gün əvvəl)

rdrobert cavab verdi - Kondisioner mis borusu qiyməti (2 gün əvvəl)

rdrobert cavab verdi - 0-dan alman dili öyrənmək (2 gün əvvəl)

E. Hacı cavab verdi - Trendyoldan 6 ədədd corab sifariş etsəm vergi ödəməliyəm? (5 gün əvvəl)

E. Hacı cavab verdi - Aliexpress endirim kodu tətbiq olunduqdan sonra Smart Customsda hansı qiymət yazılmalıdır? (5 gün əvvəl)

Jorpy cavab verdi - Aliexpress endirim kodu tətbiq olunduqdan sonra Smart Customsda hansı qiymət yazılmalıdır? (10 gün əvvəl)

E. Hacı cavab verdi - Smart Customsda növbəti sifarişlərə görə 25 manat tutulacaq? (10 gün əvvəl)

E. Hacı cavab verdi - Aliexpress endirim kodu tətbiq olunduqdan sonra Smart Customsda hansı qiymət yazılmalıdır? (10 gün əvvəl)

Lider istifadəçilər

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

Proyekt haqqında

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