program amountn;
var
amount, n, number, i: integer;
begin
amount := 0;
write('Введите количество чисел: ');
read(n);
for i := 1 to n do
begin
read(number);
amount := amount + number;
end;
writeln('Сумма n чисел: ', amount);
end.
Объяснение:
program amountn; // Название программы
var
amount, n, number, i: integer; // Целочисленные переменные:
amount - сумма чисел;n - количество чисел;number - сами числа;i - счетчик для цикла for.begin // Начало программы
amount := 0; // Переменная, хранящая сумму, = 0
write('Введите количество чисел: '); // Вывод сообщения в консоль
read(n); // Считываем количество чисел с клавиатуры
for i := 1 to n do // Идём с единицы до n (цикл для ввода n чисел)
begin // Начало цикла
read(number); // Считываем число с клавиатуры
amount := amount + number; // К переменной, хранящей сумму, прибавляем число
end; // Конец цикла
writeln('Сумма n чисел: ', amount);
end. // Конец программы
Язык не указан, предположим что нужен кто то из популярных: Паскаль или Питон.
PascalABC.NET:
#1 (По умному)
begin
var a := Range(1, ReadInteger('N = '));
a.Sum.Println;
a.Aggregate(BigInteger.One, (p, q) -> p*q).Println;
end.
#2 "А нас учили по другому"
begin
var N := ReadInteger();
var sum:int64 := 0;
var prod:BigInteger := 1; //Для большого N произведение не влезет в int64, по этому юзаем бесконечное целое число BigInteger
for var i := 1 to N do begin
sum += i;
prod *= i;
end;
Println(sum, prod);
end.
#3 Вариант на Питоне
summ, prod = 0, 1
for i in range(1, int(input())+1):
summ += i; prod *= i
print(summ, prod)
Объяснение:
В программе никаких ошибок нету, если надо, то ниже я добавил в программу код, который проверяет, чтобы значение переменных m и n были не больше 1000:
Var n,m,t,k,f:integer;
begin
readln(n,m);
if (n > 1000) or (m > 1000) then
writeln('Ошибка. Значение n и m должны быть не больше 1000')
else begin
k:=n mod 10000;
f:=m mod 10000;
t:= ((f-1) div k)+1;
writeln(t);
end;
end.