Как это написать ** паскале программу вычисления суммы чисел...

Question

Как это написать на паскале программу вычисления суммы чисел (100-1)+(100-5)+(100-9)+...+(100-49)

Answer 1

Ответ:

Например, так:

Объяснение:

program sum100;

var s,a:integer;

begin

s:=0;

a:=1;

repeat

s:=s+100-a;

write(a,' ');

a:=a+4;

until a>49;

writeln('s= ',s);

readln;

end.

Comments

ty

---

??