Reik pagalbos

Duoti skaičių intervalo rėžiai a ir b. Apskaičiuoti skirtumą tarp to intervalo skaičių sandaugos ir sumos.

Padėkit išspręst šitą uždavinį. Dėkui ;)

Nu tai kiekvieno intervalo skaicius sudaugini , poto visus skaicius sudedi ir ieskai skirtumo is kiekvieno intervalo ..

Nu pvz

b1 * b2 * b3 - a1 *a2 *a3 = ?

b1 + b2 + b3 - a1 + a2 + a3 = ?

Kaip suopratau taip paaiskinau ;)

Nu tai kiekvieno intervalo skaicius sudaugini , poto visus skaicius sudedi ir ieskai skirtumo is kiekvieno intervalo ..

 

Nu pvz

 

b1 * b2 * b3 - a1 *a2 *a3 = ?

 

b1 + b2 + b3 - a1 + a2 + a3 = ?

 

 

Kaip suopratau taip paaiskinau ;)

Netaip :D

for i := a to b do
begin
 suma += a;
 sandauga *= a;
end;
writeln(sandauga - suma);

Tu tikras kad a<b ? jei taip tai gerai, bet jei ne tai ciklą reiktų sukti

  for i := min(a, b) to max(a, b)

taip pat nepamiršk kad funkcija min yra tik math bibliotekoje.

wuss kažkaip painiai čia parašei, bet pamėginsiu patikrint :D

Edited:

Nežinau, neveikia man wuss'o programa. Gal galėtumėt pilną užrašą parašyt?

Laiko yra, reik padaryt šį menkniekį iki pirmadienio.

ganjabest teisus dėl idėjos. Turėtų būt taip: a1*a2*a3... - b1+b2+b3... Tik vat nemoku programoje parašyt tai ką noriu padaryt. Imant skaičius atrodytų taip: pvz.: a=4 , b=6 , tai 4*3*2*1 - 6+5+4+3+2+1 = Ats ir pnš.

Beje dėkui wuss, mantasurnieza ir ganjabest už pastangas padėti :D

Netaip supratau sąlyga :D

for i := 1 to a do
sandauga := sandauga * i;

for i := 1 to b do
suma := suma + i;

writeln(sandauga - suma);

taip gal? :D

suma := 0;
sandauga := 1;
for i := a to b do
 begin
sandauga := sandauga * i;
suma := suma + i;
 end;

writeln(sandauga - suma);

kokia cia isvis kalba? :) ideja ta pati kaip ir visur turetu buti tik va itariu cia pascalis? nes tie to, do nelabai pazystami :D

kokia cia isvis kalba? :) ideja ta pati kaip ir visur turetu buti tik va itariu cia pascalis? nes tie to, do nelabai pazystami :D

Taip čia paskalis :)

Mėginau abu parašytus variantus testuot ir neveikia... Jei galit patys patikrinkit pas save, nes nežinau kas čia blogai <_<

program uzdarbislt;
 var a, b, suma, sandauga, i : integer;
begin
 ReadLn (a, b);
 suma := 0;
 sandauga := 1;
 for i := a to b do
begin
  sandauga := sandauga * i;
  suma := suma + i;
end;
 writeln(sandauga - suma);
 Readln;
end.

Viskas veikia.

program uzdarbislt;
 var a, b, suma, sandauga, i : integer;
begin
 ReadLn (a, b);
 suma := 0;
 sandauga := 1;
 for i := a to b do
begin
  sandauga := sandauga * i;
  suma := suma + i;
end;
 writeln(sandauga - suma);
 Readln;
end.

Pati programa veikia bet ne taip kaip tikėjausi... Aš maniau, jei įvesiu skaičių pvz.: 5 bus taip: 5*4*3*2*1=120 (tai būtų sandauga). Vėliau rašau antrą skaičių pvz.: 8 bus taip: 8+7+6+5+4+3+2+1=36. Ir galutinis atsakymas mano manymu turėtų būti 120-36=84. O pagal tavo komandą įvedus šiuos skaičius gaunasi atsakymas 1654. Nežinau gal netaip kažką supratau ar darau.

Edited: Viską supratau jau :D Gerai čia padaryta tiesiog ne taip įsivaizdavau programą. Didelis dėkui mantasurnieza :D