Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Если в блокноте ,то 6 бит. В майкрософте ворд - 12,4 кб
Объяснение:
program xxx;
var i, x, s : integer;
begin
write('введите число х=');
readln(x);
s: =0
i: =1
while i < =x do
s: =s+i;
i: =i+2
end;
write('сумма нечетных чисел ='; s);
readln
end.
uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.
Популярные вопросы