Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n, s : integer;
begin
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
end.
f8 формула: =b12*5. b5 формула: =а4+d6. c7 формула: =d6/$a$2. f9 формула: =$c$5-g1. e5 формула: =c$5-$e9.
Популярные вопросы