Problema PASCAL se da doar numarul natural n care este mai mic ca 1000 sa se afle suma numerelor la care n se inparte fara rest
Răspunsuri la întrebare
Răspuns de
0
var n, i, sum: integer;
begin
writeln('Introduceti numarul natural n:');
readln(n);
sum := 0;
for i := 1 to n do
begin
if n mod i = 0 then
sum := sum + i;
end;
writeln('Suma numerelor la care n se imparte fara rest este: ', sum);
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Istorie,
8 ani în urmă
Limba română,
8 ani în urmă
Informatică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Biologie,
8 ani în urmă
Engleza,
8 ani în urmă