Gal kas galėt pagelbėti dėl paskalio programų?

Tai va, vėl gavau porą užduočių, bet vėl nemoku jų atlikti...

Užduotys:

1)Prarašyti programą sekos 1*2;2*3*4....; narių sumai rasti. Turi rodyti ir narius, ir sumą atsakyme.

2)Sudaryti programą, spausdinančią kiekvieną intervalo [m;n] natūralųjį skaičių, kurio kvadratas būrų atbulas to paties skaičiaus, parašyto atbulai, kvadratui. Pvz: 12^2=144 ir 21^2=441. (šitą reik su funkcija padaryti)

Jei nesunku, padėkit...

Tai va, vėl gavau porą užduočių, bet vėl nemoku jų atlikti...

Užduotys:

1)Prarašyti programą sekos 1*2;2*3*4....; narių sumai rasti. Turi rodyti ir narius, ir sumą atsakyme.

 

2)Sudaryti programą, spausdinančią kiekvieną intervalo [m;n] natūralųjį skaičių, kurio kvadratas būrų atbulas to paties skaičiaus, parašyto atbulai, kvadratui. Pvz: 12^2=144 ir 21^2=441. (šitą reik su funkcija padaryti)

 

Jei nesunku, padėkit...

Kokios pagalbos tau cia reikia? Elementarus matematiniu formuliu taikymas

Kokios pagalbos tau cia reikia? Elementarus matematiniu formuliu taikymas

kokių formulių? :D

Tai niekas nemokat? :D

Patarčiau pradėt mokytis, nes gi visada už tave kažkas nedarys.

Patarčiau pradėt mokytis, nes gi visada už tave kažkas nedarys.

Tą ir bandau daryti...Tai gal kasnors mokat?

Jau rytoj atsiskaityt reik! Pad4kit , jei nesunku... Vėliau, jei reikėsi, aš jum kokią paslaugą galėsiu padaryt :)

Vienas žmogus padėjo, bet vistiek kažkas negerai... Čia antra programa:

program Bevarde0;
var m, n, a, k, k1, s1, s2, sk, ss1, ss2, ss3, sk1, sk2, sk3,q, ats : longint;
function f (m, n, a, k, k1, s1, s2, sk, ss1, ss2, ss3, sk1, sk2, sk3, q : longint) : longint;
begin
for a := m to n do begin
 k := a*a;
 q := a;
 s1 := q div 10;
 s2 := q mod 10;
 sk := (s2*10) + s1;
 k1 := sk * sk;
 ss1 := k div 100;
 k := k div 10;
 ss2 := k div 10;
 ss3 := k mod 10;
 sk1 := sk div 100;
 sk := sk div 10;
 sk2 := sk div 10;
 sk3 := sk mod 10;
 if ((ss1 = sk1) and (ss2=sk2) and (ss3=sk3)) then f := a;
 end;
 end;
begin
read (m, n);
ats := f (m, n, a, k, k1, s1, s2, sk, ss1, ss2, ss3, sk1, sk2, sk3, q);
writeln (ats);
end.

gal žinot, kas blogai?