Ответы
Ответ дал:
0
//Pascal ABC.NET v3.1 сборка 1172
Var
i,k:integer;
begin
for i:=-10 to 10 do
if i>0 then k:=k+i;
writeln(k);
end.
Var
i,k:integer;
begin
for i:=-10 to 10 do
if i>0 then k:=k+i;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад