Паскаль !
1) Используя процедуру, создайте из четных символов строки st1 строку str2 и из нечетных символов - строку str3.
2) Составить программу, подпрограмма которой выведет на экран отсортированный массив по следующему принципу: сначала отрицательные значения, затем нули, последним положительные значения массива.

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну

один пиксель может содержать любой из 256 = 2^8 цветов => для кодирования 256 цветов нужно 8 бит => для кодирования одного пикселя нужно 8 бит.

var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 9)and(a< 99) thens: =s+a; until a=0; writeln(s); end.