Предмет: Информатика,
автор: bolela
Вычислите сумму нечетных чисел, не превышающих числа x. Первое нечетное число=1.
Ответы
Автор ответа:
0
program xxx;
var i, x, s : integer;
begin
write('введите число Х=');
readln(x);
s:=0
i:=1
while i <=x do
begin
s:=s+i;
i:=i+2
end;
write('сумма нечетных чисел ='; s);
readln
end.
Похожие вопросы
Предмет: Математика,
автор: manedoamn
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: isenkoila232
Предмет: Геометрия,
автор: МасЕчкА1997