Две программы на Pascal и C++

Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N (N < 10000) вводится с клавиатуры.

FreePascal
program pow;
var
    i, N : integer;
    s : longint;
begin
    write('N = '); 
    readln(N);
    s := 0;
    i := 0;
    while i < N do
    begin
        inc(i);
        s := s + i;
    end;
    writeln('s = ', s);
end.
C++
#include <iostream>
int main() {
    int i = 0, N;
    unsigned s = 0;
    std::cout << "N = ";
    std::cin >> N;
    while (i++ < N)
        s += i;
    std::cout << "s = " << s << std::endl;
    return 0;
}
Python
i, s = 0, 0
N = int(input('N = '))
while i < N:
	i += 1
	s += i
print('s =', s)


Print Friendly, PDF & Email

Comments are closed