Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x,s,n: integer;
begin
repeat
read(x);
if x< 0 then n: = n +1;
if x > 0 then s: =s+x;
until x=0;
writeln(n,s);
end.
10000 байт = 10000 : 2^10 кб = 9,8 кб
10000 байт = 10000 : 2^20 мб = 0, 009 мб
600000 байт = 600000 : 2^10 = 586 кб
4k+2m+1=41
k+m+1=15
4k+2m=40
k+m=14
2k+m=20
-k-m=-14
k=6
Популярные вопросы