Program P;varS,K,A,SR:real;beginS:=0;K:=0:A:=100repeatS:=S+A;K:=K+10;A:=A-1;untilA>9;SR:=S;writeln ('SR=',SR);end.
Введите ответ
Program P;
ОтветитьУдалитьvar
S,K,A,SR:real;
begin
S:=0;
K:=0:
A:=100
repeat
S:=S+A;
K:=K+10;
A:=A-1;
until
A>9;
SR:=S;
writeln ('SR=',SR);
end.