karolukasss
-
Pranešimai
6 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
karolukasss Pranešimai
-
-
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. ;)
- Gangsterito ir Plx sureagavo į tai
- 2
-
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
reikia pagalbos su pascal.
Ne į temą
Atrašyta
deja man reikia tai padaryti su cklu while