Посчитать сумму целых четных чисел от 1ого до заданного числа nПОМОГИТЕ РЕШИТЬЯ пыталась...

Question

Посчитать сумму целых четных чисел от 1ого до заданного числа n

ПОМОГИТЕ РЕШИТЬ
Я пыталась сама сделать (прикрепила к заданию текст программы)
но почему-то в итоге не получилось

Помогите сделать или найдите ошибку пожалуйста

---

Comments

а что происходит когда ты её запускаешь?

Answer 1

Вот мой код, у меня всё работает...

uses crt;
var
x,n,s:integer;
begin
clrscr;
s:=0;
write ('N=');
readln (n);
for x:=1 to n do
begin
if x mod(2)=0 then
s:=s+x;
end;
writeln ('sum=',s);
end.