Найти сумму нечетных чисел от 1 до n.

составьте программу в Паскаль

Question

Сысой

13 мая, 05:08

+2

Ответы (1)

Знаете ответ на вопрос?

Лидя · Answer 1

Program n1;

var n, i: integer;

sum: real;

begin

sum:=0;

readln (n) ;

for i:=1 to n do if i mod 20 then

sum:=sum+i;

writeln (sum) ;

end.

Найти сумму нечетных чисел от 1 до n.составьте программу в Паскаль