Question

По представленной блок-схеме составьте программу и получите результат ее выполнения

Answer 1

Var s,k,a,sr:integer;
begin
s:=0;
k:=100;
a:=100;
repeat
 s:=s+a;
 k:=k-1;
 a:=a-1;
until a<=10;
sr:=s*s;
writeln('sr = ',sr,' k = ',k);
end.

Пример:
sr = 24950025 k = 10