Инструмент Тяни/Толкай используется для того, чтобы подтянуть иди вытолкнуть грани, для увеличения или уменьшения объема модели. Сколько на рис. 5.19 граней, которые можно «вдавить» или «вытолкнуть»:

ответ: 6 бит

думаю, что 19,5 кб = 0,019 мб.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.