Răspuns :
a)var
i,S:integer;
begin
for i:=1 to 10 do
begin
write(i,' ');
S+=i;
end;
writeln;
write(S);
end.
b)var
i,P:integer;
begin
P:=1;
for i:=10 downto 1 do
begin
write(i,' ');
P*=i;
end;
writeln;
write(P);
end.
i,S:integer;
begin
for i:=1 to 10 do
begin
write(i,' ');
S+=i;
end;
writeln;
write(S);
end.
b)var
i,P:integer;
begin
P:=1;
for i:=10 downto 1 do
begin
write(i,' ');
P*=i;
end;
writeln;
write(P);
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!