створення тривимірного обєкта, шляхом накладання послідовних шарів матеріалу за даними цифрової моделі

21,24,27,30,33,36,39,42,45,48

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

101110, 101111. в десятичной эти числа равны 46 и 47.

3  учеников этого класса любят все три вида спорта