Ответы
Ответ дал:
0
program raf105;
var s,k,a,sr:real;
begin
s:= 0;
k:= 0;
a:= 100;
repeat
s:= s+a/2;
k:= k+1;
a:= a+1;
until a>300;
sr:= s-k;
writeln(sr);
end.
Язык PascalABC
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад