PROGRAM PASCAL
a) Sa se afiseze numerele de la 1 pana la 10 si sa se calculeze suma lor.
PROGRAM PASCAL
b) Sa se afiseze numerele de la 10 pana la 1 si sa sa calculeze produsul lor.
"a" si "b" sunt 2 programe aparte
Răspunsuri la întrebare
Răspuns de
3
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.
Adolf:
Multumesc mult!
Alte întrebări interesante
Istorie,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Engleza,
9 ani în urmă
Limba română,
9 ani în urmă