Program n1;
var sum,a: integer;
begin
sum:=0;
repeat
readln(a);
if a<0 then sum:=sum+a;
until (a=0);
writeln(sum);
end.
1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>
120*120*log8=120*120*3=43200bit=5400bite=5.2734375kb
((1 - 4)^2 - 4)^2 - 4 = 21
(((5 + '1') / 3 + '1') / 3) / 3 = 19