👤

1.Se considera doua numere intregi,daca primul numar este pozitiv,atunci de ridicat acest numar la patrat in caz contrar numerele sa ramina neschimbate.
2.Sa se scrie un program care calculeaza suma numerelor naturale mai mici sau egale ca n.


Răspuns :

1)Program Tema1;

var a,b:integer;
Begin
writeln('Introduceti cele doua numere intregi: ');
read(a,b);
if(a>=0) then
a=a*a;

writeln('Numerele intregi acum sunt: ',a,b);
End;

2)
Program Tema2;
var i,n,s:integer;
Begin
s:=0;
writeln('Introduceti numarul natural: ');
for i=1 to n do
s:=s+i;

writeln('Suma numerelor mai mici decat n este: ',s);
End.