FPS padėkit..

Pirmą kartą neįveikiu JPM užduoties ;D

 

Parašykite funkciją nevienodi (sk: longint): longint, kuri iš duoto skaičiaus pašalintų visus vienodus skaitmenis.

 

Pavyzdžiui, nevienodi (13)=13, nevienodi (144050=105, nevienodi(5522) = 0, nevienodi (10021) = 2.

 

 

Ačiū.

Nebereik. Išsisprendžiau.

Nebereik. Išsisprendžiau.

Na, bet jei jau parašiau, tai pasidalinsiu vistiek:

program nevienod;
type tmasyvas = array [0..9] of integer;

function nevienodi(sk: longint): longint;
var skaic1, skaic2: longint;
i: integer;
masyvas: tmasyvas;
skaic: integer;
begin
skaic1 := sk;
skaic2 := 0;
for i := 0 to 9 do masyvas[i] := 0;


while (sk > 0) do
	begin
		skaic := sk mod 10;
		masyvas[skaic] := masyvas[skaic] + 1;
		sk := sk div 10;
	end;


while (skaic1 > 0) do
	begin
		if not (masyvas[skaic1 mod 10] > 1) then skaic2 := skaic2*10 + skaic1 mod 10;
		skaic1 := skaic1 div 10;
	end;


while (skaic2 > 0) do
	begin
		skaic1 := skaic1*10 + skaic2 mod 10;
		skaic2 := skaic2 div 10;
	end;

nevienodi := skaic1;
end;

begin
WriteLn(nevienodi(13));
WriteLn(nevienodi(14405));
WriteLn(nevienodi(5522));
WriteLn(nevienodi(10021));
Readln;
end.

 

Žinau, kad daugiau čia JPM'istų yra, gal kam pravers. :)

Tik visi lygiai tokio nenusiųskit. :)

Galit help? Visus issprendziau tik keli liko...

 

Kvadratas padalytas į n×n langelių ir užpildytas natūraliai¬siais skaičiais.

Parašykite sprendimo idėjos aprašą ir programą, kurioje būtų pa¬naudota funkcija, tikrinanti, ar šis kvadratas yra magiškasis.

Magiškuoju kvadratu vadinamas iš eilės einančių k×k (k ≥ 2) natūraliųjų skaičių kvadratas, kurio kiekvienos eilutės, kiekvieno stulpelio ir abiejų įstrižainių skaičių sumos vienodos. Paveiksle deši¬nėje pateiktas magiškojo kvadrato pavyzdys.

http://img13.imageshack.us/img13/8587/asasi.th.png

 

 

Norint sužinoti, kiek valandų ir kiek minučių rodys laikrodis, kai valandų rodyklė užims minučių rodyklės dabartinę padėtį, parašyta tokia procedūra:

procedure Skalės (var t: laikas);

begin

t.h := t.min div 5;

if t.h = 0

then t.h := 12;

t.min := t.min mod 5 * 12

end;

Parašykite, kaip apibrėžtas tipas laikas.

 

 

Lyginimo operacijos su masyvais Paskalio kalboje neapibrėžtos. Susitarkime, kad du masyvai, kurių elementai yra to paties paprastojo tipo, bet kurią lyginimo operaciją tenkina tada, kai šią operaciją tenkina kiekviena masyvų elementų, pažymėtų tuo pačiu indeksu, pora.

Parašykite programą, kurioje būtų panaudotos funkcijos, su masyvais atliekančios šias lygi¬nimo operacijas:

a) lygu (=);

b) nelygu (<>);

c) daugiau (>);

d) mažiau (<);

e) daugiau arba lygu (>=);

f) mažiau arba lygu (<=).