Тело:
var a,b,c:integer; m:boolean;beginm:=True;read(a,b,c);if (a+b<0) or (b+c<0) or (a+c<0) then m:=False;write(m);end.
Я думаю что 1-5....................... Но это не факт(
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
/////////////////////////////////////
1)25600бит/c = 31,25 KB
2)31,25 *10=312.5KВ
Ответ 312.5 КВ