Предмет: Информатика,
автор: НаденькаN
составить программу вычисления сумму четных чисел от 2 до n
Ответы
Автор ответа:
0
program s;
uses crt;
var n,i,sum:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=2 to n do
begin
if not odd(i) then
s:=s+i;
end;
writeln(s);
readln;
end.
Похожие вопросы
Предмет: Информатика,
автор: dianaacharyan
Предмет: Геометрия,
автор: asushchina
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: 80177525623
Предмет: Математика,
автор: Tatyana2012