Посчитать сумму целых четных чисел от 1ого до заданного числа n
ПОМОГИТЕ РЕШИТЬ
Я пыталась сама сделать (прикрепила к заданию текст программы)
но почему-то в итоге не получилось
Помогите сделать или найдите ошибку пожалуйста
ПОМОГИТЕ РЕШИТЬ
Я пыталась сама сделать (прикрепила к заданию текст программы)
но почему-то в итоге не получилось
Помогите сделать или найдите ошибку пожалуйста
More Questions From This User See All
Answers & Comments
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.