Məsələ Turbo Paskalda

Hər kəsə salamlar.
Xahiş edirəm bilənlər kömək eləsin!!!
Turbo Paskala aid 2 məsələ var.

1.Polindromik sabitin əvvəldən və sondan eyni oxunduğu məlum olduğu halda, x ədədinin polindromik ədəd olub-olmadığını təyin edən proqram.

2. m – ə böldükdə qalıqda h olan ədədin tapilmasi ücün proqram.


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

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

(20:49, 25/04/2016 ) #62800

Salam
Polindromik ədəd bildiyimə görə hər iki tərəfdən eyni olan ədəddir. Məsələn 101 kimi. Belə ədədlərin tapılması üçün proqram aşağıdakı şəkildə ola bilər:

Program Cavablar_Net;
var eded,eded2,tersi:integer;
qaliq:integer;
i: integer;
begin
tersi:=0;
writeln('Ededi daxil edin:');
readln(eded);
eded2:=eded;
while(eded>0) do begin
qaliq:=eded mod 10;
eded:=eded div 10;
tersi:=tersi*10+qaliq;
end;
if(eded2=tersi) then begin
writeln('Daxil olunan eded polindromik ededdir.');
end
else begin
writeln('Daxil olunan eded polindromik eded deyil.');
end;
readln;
end.

2-ci proqram isə çox sadədir. Sadəcə mod instruksiyasından istifadə etməklə qalığı tapmaq lazımdır. Kod aşağıdakı şəkildə olur:

Program Cavablar_Net;
var bolunen,m,h:integer;
begin
writeln('Boluneni daxil edin:');
readln(bolunen);
writeln('M-i daxil edin:');
readln(m);
h:=bolunen mod m;
writeln('Bolunmeden alinan qaliq:', h);
readln;
end.
Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır


(08:14, 26/04/2016 ) #62806

m -ə bölündükdə qalıada h olanı tapmaq tələb olunursa başlanğıc məlumat olaraq m və h daxil olunmalıdır, h-ı proqram hesablamalı deyil. Məncə cavab aşağıdakı kimi olmalıdır:

eger (m <= h) onda
capet ( m – ə bölünəndə qalıqda h olan ədəd mövcud deyil)
eks halda
capet m*k+h
// k istənilən tam ədəddir 1,2,3, …

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

MiMov cavab verdi - Özəl ip tv qurmaq (3 gün əvvəl)

MiMov cavab verdi - iptv onlayn paket almaq (3 gün əvvəl)

E. Hacı cavab verdi - 300$ Gömrük Limitini keçdim (10 gün əvvəl)

Software Developer cavab verdi - Aliexpress gömrük rüsumu nəyə görə hesablanır? (11 gün əvvəl)

AliyevYT cavab verdi - Honeygain, passiv gelir (12 gün əvvəl)

Sıradan biri cavab verdi - IMEI qeydiyyatı (14 gün əvvəl)

Fariz Huseynli cavab verdi - cerimenin öyrənilməsi (17 gün əvvəl)

Software Developer cavab verdi - cerimenin öyrənilməsi (19 gün əvvəl)

Software Developer cavab verdi - Kapital bank rekvizit payoneer (19 gün əvvəl)

Software Developer cavab verdi - Hər hansı kompyuter proqramının (EXE faylı) etibarlı olub olmaması yəni qanuni və ya saxta olduğunu necə bilmək olar ? (19 gün əvvəl)

txmn cavab verdi - Hərbi biletsiz, möhlətsiz iş (21 gün əvvəl)

Galaxy cavab verdi - X-də (Twitter) premium abunəliklə bağlı çətinlik (21 gün əvvəl)

Rsad Ncfli cavab verdi - Payonner 2024 ilə bağlı sual (27 gün əvvəl)

Software Developer cavab verdi - Payonner 2024 ilə bağlı sual (27 gün əvvəl)

Rsad Ncfli cavab verdi - Payonner 2024 ilə bağlı sual (27 gün əvvəl)

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

Proyekt haqqında

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