ex 6 pag 31 C
Program P6;
var n, i, sum : integer;
begin
writeln ('Dati numarul n:');
readln (n);
sum:=0;
for i:=1 to n do sum:=sum + sgr(i);
writeln('Suma este :',sum);
readln;
end.Adăugat (2015-05-19, 11:23 PM)
---------------------------------------------
exercitu 3 (b) pag 30-31 C
Comentati secventele de mai jos.
1) 1:=0;
for i:=2.5 to 7.5
s:=s+sqr(i);
Rezolvare:
S - va fi egal cu 0+patratul unui numar de la 2.5 pina la 7.5.
2) a:=1; b:=2;
for j:=5 to 3 do
a:=b*a;
Rezolvare:
Instructiunea situata dupa dupa cuvintul cheie do nu executa nici odata ,fiindca valoare initiala este mai mare decit cea finala.
3) for c:='d' downo 'b' do
writeln(pred( c ));
Rezolvare:
c=d modul c modul b dar pred ( c )=c modul b modul a .