karolukasss

deja man reikia tai padaryti su cklu while

gal kas galetu pasakyti mano klaidas?

Parašykite programą, kuri patinkrintų ar teisinga formulė:

1³ + 3³ + …+ (2n – 1)³ = n²(2n² – 1),

Kai n = 1, 2, …, 100.

program ciklas2;

var pr, gr, h, n, teisinga, neteisinga, sum:integer;

begin

WriteLn('iveskite n');

Readln (n);

pr :=1;

gr:=100;

h :=1;

sum :=0;

while pr <= gr do

begin

sum := sum + (n*n*n);

pr := pr + h

end;

if sum =(n*n)*(2*(n*n)-1)

then = teisinga

else = neteisinga;

writeln ('teisinga');

writeln ('neteisinga');

end.

program ciklas;

var n, m, sum, sumlyg, sumnelyg:integer;

begin

WriteLn('iveskite n ir m');

Readln (n);

read(m);

sum:=(n*n)+(m*m); sumlyg:=((n*n)mod 2=0)+((m*m) mod 2 =0); sumnelyg:=((n*n) mod 2 <>0)+((m*m) mod 2<>0);

writeln (sum);

writeln (sumlyg);

writeln(sumnelyg) ;

end.

nu man tikrai geda uz tokias nesamones, bet nieko daugiau nemoku.

gal tada bent jau galit pasakyti kur tos literaturos greiciau susirast?

o tai jus galvojat as pats nebandziau? patikekit nesu is tu kurie iesko lengviausio kelio. tik tai man tikrai sunku ismokti per 45min i savaite. nenorit nepadekit. ;)

nu as nesuprantu tu ciklu pascal'io

net neisivaizduoju kaip turetu atrodyti programa

labas,

klausykit gal galetumet padeti?

1. Užduotis

Parašykite programą, kuri apskaičiuotų skaičių sekos [n; m] skaičių kvadratų sumą bei skirtingai nelyginių ir lyginių skaičių kvadratų sumas.

zinokit labai reikia