Вычислить сумму первых N чётных положительных чисел - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Написать программу, которая вычисляет сумму первых N четных положительных чисел. Исходные данные (N – количество чисел) вводятся из файла Input.txt. Результаты работы программы добавляются в файл Out.txt. Вот как они должны выводиться в файл out

Решение задачи: «Вычислить сумму первых N чётных положительных чисел»

textual
Листинг программы
var n,i,sum:int64;
    f:text;
begin
assign (f,'input.txt');
reset (f);
read(f,n);
close(f);
assign (f,'out.txt');
rewrite (f);
writeln(f,'Сумма первых ',n,' четных положительных чисел:');
sum:=0;
for i:=1 to n do
 begin
  sum:=sum+2*i;
  write(f,2*i,' ');
 end;
writeln(f);
writeln(f,'Сумма=',sum);
close(f)
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Задача программы - вычислить сумму первых N четных положительных чисел.

  1. Переменные:
    • n - число, для которого нужно вычислить сумму (вводится с клавиатуры);
    • i - счётчик, который увеличивается на единицу на каждой итерации цикла;
    • sum - переменная, в которую записывается сумма четных положительных чисел.
    • f - файл, в который записывается результат.
  2. Сначала считывается введенное с клавиатуры число N.
  3. Затем открывается файл input.txt для чтения.
  4. Числа считываются из файла и записываются в переменную sum.
  5. После чтения файла он закрывается.
  6. Открывается файл out.txt для записи.
  7. В файл записывается заголовок Сумма первых N четных положительных чисел:.
  8. Затем в файл записываются числа, которые составляют сумму.
  9. После записи всех чисел в файл он закрывается.
  10. Выводится сообщение Сумма=ххх, где ххх - это значение переменной sum.

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы