karolukasss

deja man reikia tai padaryti su cklu while

gal kas galetu pasakyti mano klaidas? Parašykite programą, kuri patinkrintų ar teisinga formulė: 13 + 33 + …+ (2n – 1)3 = n2(2n2 – 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