Napisz program w Pascal, który mając na wejściu dwie liczby naturalne n i m> policzy sumę kolejnych liczb naturalnych od m do n. Należy zrobić dwie wersje - jedna z użyciem pętli FOR a drugą z WHILE.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
program SumaLiczbNaturalnych;
var
n, m, i, suma: integer;
begin
writeln('Podaj dwie liczby naturalne:');
readln(m, n);
// sprawdzenie, czy m jest mniejsze od n
if m > n then
begin
writeln('Pierwsza liczba musi być mniejsza od drugiej!');
exit;
end;
suma := 0;
// obliczenie sumy liczb naturalnych od m do n
for i := m to n do
suma := suma + i;
writeln('Suma liczb naturalnych od ', m, ' do ', n, ' wynosi: ', suma);
end.
program SumaLiczbNaturalnych;
var
n, m, i, suma: integer;
begin
writeln('Podaj dwie liczby naturalne:');
readln(m, n);
// sprawdzenie, czy m jest mniejsze od n
if m > n then
begin
writeln('Pierwsza liczba musi być mniejsza od drugiej!');
exit;
end;
suma := 0;
i := m;
// obliczenie sumy liczb naturalnych od m do n
while i <= n do
begin
suma := suma + i;
i := i + 1;
end;
writeln('Suma liczb naturalnych od ', m, ' do ', n, ' wynosi: ', suma);
end.
Ploszę :D