Напишите программу на языке Pascal, которая с помощью цикла for to считала s:=1-2+3-4+5-6+7-8+9-10 ...

Question

Информатика

Вераня

27 мая, 04:27

Напишите программу на языке Pascal, которая с помощью цикла for to считала s:=1-2+3-4+5-6+7-8+9-10 ...

+5

Ответы (2)

Знаешь ответ?

Наркисса · Answer 1

Var n, i, s:integer;

begin

write ('n = '); readln (n);

s:=0;

for i:=1 to n do

if i mod 2 = 0 then s:=s-i else s:=s+i;

writeln ('s = ', s);

end.

Пример:

n = 10

s = - 5

Домитилла · Answer 2

Var n, s, i:integer;

begin

write ('введите n ');

readln (n);

for i:=1 to n do if i mod 2 0 then s:=s+i else s:=s-i;

writeln ('s = ', s);

end.