1. Написать программу, которая вычисляет сумму первых N четных положительных чисел....

Question

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

Answer 1

  var a,b,sum,i:int64;  begin   assign (input,'input.txt');assign (output,'out.txt');   reset (input);rewrite (output);     readln(a);  b:=2;  i:=1;  repeat  begin  sum:=sum+b;  b:=b+2;  i:=i+1;  end;  until i=a+1;   writeln(sum);    end.

Comments

Если что-то не выходит, пиши!

---

в общем дело в том, что программа должна складывать только четные числа, а если я введу 1, то все равно ответ будет 2, а если я к примеру введу 10 двоек,то результат будет 6, что-то определенно не так с кодом

---

Ок сейчас решу проблему

---

Я немного не понимаю условий, ты ввел N.... сумму всех четных от 1..до N или как? Если так, то вроде все верно...

---

ааа

---

вот

---

это поправка к если ввести 1

---

var a,b,sum,i:int64;
begin
assign (input,'input.txt');assign (output,'out.txt');
reset (input);rewrite (output);
readln(a);
b:=2;
i:=1;
repeat
begin
if b>a then break;
sum:=sum+b;
b:=b+2;
i:=i+1;
end;
until i=a+1;
writeln(sum);
end.

---

Вот теперь все хорошо, но есть одна проблема, я показал учительнице, она сказала, что в выводе данных должны записываться числа, которые подходят под условие.Тоесть не просто ответ в файле out, а еще сами числа, которые суммируются