Найти сумму цифр в Паскале (используя while или repeat)S=101+103+... +301Составить...

Question

Найти сумму цифр в Паскале (используя while или repeat)
S=101+103+... +301
Составить программу.

Answer 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1. Современное решение (приводится в качестве контрольного примера, дающего эталон суммы).

begin
  Range(101,301,2).Sum.Println
end.

Результат
20301

2. Цикл while

begin
  var (i,k,s):=(101,301,0);
  while i<=k do begin s+=i; i+=2 end;<br>  s.Println
end.

3. Цикл repeat

begin
  var (i,k,s):=(101,301,0);
  repeat
    s+=i; i+=2
  until i>k;
  s.Println
end.

Результаты выполнения всех трех программ одинаковы.

Answer 2

(использую repeat)
var i,S:integer;
begin
S:=0; i:=101;
repeat
S:=S+i; i:=i+2;
until i>301;
Writeln(S);
end.

(использую While)
var i,S:integer;
begin
S:=0; i:=101;
while i<=301<br>do begin
S:=S+i; i;=i+2;
end;
Writeln(S);
end.