Paskalis

Sveiki,

tik pradedu mokytis šios labai paprastos, bet kartu kaip ir suprantu niekam nereikalingos programavimo kalbos, bet jau susidūriau su keliomis problemėlėmis.

Nusimato poryt darbas iš while atsiskaitymo, štai keli uždaviniai kuriuos mokytoja davė pasibandymui (bus ale toks pats darbas tik pakeisti skaičiai ir gal kokia salyga mažai, principas toks pats)

26. Duotas naturalusis skaičius N. Skaitmenys numeruojami iš dešinęs į kairę. Raskite didžiausią skaitmenį ir nustatykite jo numerį (jei skaitmuo kartojasi, tai galima rinkti tolesnį skaitmenį). Pvz.: N=48384, tai max=8 ir Nr.4.

(Šitas uždavinys man tiesiog neyveikiamas, tiesiog nepajudėjau iš vietos jį sprendžiant, nežinau ką daryti jame iš viso.

27. Parašykite programą natūraliojo skaičiaus pirmo ir trečio skaitmenų kvadratų sumai rasti.

( Čia lengvai randu pirmą skaičių while ciko pagalba, bet nesuprantu kaip rasti trečią skaičių.. Kvadratų sumą savaime moku apskaičiuoti, bet nesupratu kaip man rasti betkokio skaičiaus trečią skaičiu?)

28. Duotas natūralusis skaičius. Parašykite programa, kuri atspausdintų to skaičiaus nelyginių skaitmenų kvadratus.

(Surasti skaičiuje jo nelyginius skaitmenis su while lengvai išeina. Kvadratus irgi sugebėčiau suskaičiuoti, aišku. bet nemoku niekaip padaryti, kad jis radęs tą skaičių jį kažkaip iškarto "atspausdintų:.) (ta prasme jei ten reikėtų jų sumą rasti tai pasidaryčiau naują ten kokį sum:=0 ir prie jo pridėčiau o vėliau atspausdinčiau writeln('suma',sum), bet kaip padaryti kad jis visus spausdintu nemoku.

Jei kažkas pagelbėtu būčiau labai dėkingas, daugiausia turbūt pagalbos reiktų dėl pirmo uždavinio, kitus tik iš dalies.

Dėkui dar kartą jei kas ras laiko paaukoti nemokšai pamokyti.

26.

var N : Longint;
maxN : integer;
counter, id : integer;
begin
counter := 1;
write('Input: '); readln(N);
maxN := N mod 10;
while N > 0 do begin
	if (N mod 10) >= maxN then begin 
		maxN := N mod 10;
		id := counter;
	end;
	N := N div 10;
	inc(counter);
end;
writeln('Max: ', maxN);
write('Nr.: ', id);
end.

27.

var N : longint;
num1 : integer;
num3 : integer;
sum : integer;
begin
write('Input: '); readln(N);
num1 := N mod 10;
num3 := N mod 1000;
num3 := num3 div 100;
sum := (num1*num1)+(num3*num3);
write('Sum: ', sum);
end.

28.

var N : longint;
begin
write('Input: '); readln(N);
while N > 0 do begin
	if ((N mod 10) mod 2) <> 0 then write((N mod 10)*(N mod 10), ' ');
	N := N div 10;
end;
end.

26.

var N : Longint;
maxN : integer;
counter, id : integer;
begin
counter := 1;
write('Input: '); readln(N);
maxN := N mod 10;
while N > 0 do begin
	if (N mod 10) >= maxN then begin 
		maxN := N mod 10;
		id := counter;
	end;
	N := N div 10;
	inc(counter);
end;
writeln('Max: ', maxN);
write('Nr.: ', id);
end.

27.

var N : longint;
num1 : integer;
num3 : integer;
sum : integer;
begin
write('Input: '); readln(N);
num1 := N mod 10;
num3 := N mod 1000;
num3 := num3 div 100;
sum := (num1*num1)+(num3*num3);
write('Sum: ', sum);
end.

28.

var N : longint;
begin
write('Input: '); readln(N);
while N > 0 do begin
	if ((N mod 10) mod 2) <> 0 then write((N mod 10)*(N mod 10), ' ');
	N := N div 10;
end;
end.

Ačiū už atsakymus, tik labai gaila, kad pusės nesuprantu, o svarbiausia tai, kad jei ir suprasčiau leidžiama naudotis tik mum keliomis pagr. funkcijomis tai while ir if. Na dėkui, bandysiu kažkaip išsisukti.

Aš be while ir if čia daugiau nieko stebuklingo nenaudoju ko galėtų neleist naudot, o jei tiksliau kas neaišku tai klausk.