Язык "паскаль авс" найти произведение всех двузначных чисел, сумма цифр которых равна 8

Var i,s,a: integer; begin a: =1; for i: =10 to 99 do  begin  s: =i mod 10+ i div 10;   if s=8 then a: =a*i;   end; writeln (a); end.

Атрибутивная концепция. информация является свойством всего сущего, всех материальных объектов мира. информация — атрибут всех материальных объектов. 2. функциональная концепция. информация возникла вместе со вселенной. информация проявляется в воздействии одних объектов на другие, в изменениях, к котоым такие воздействия приводят. информация — это атрибут, свойственный только живой природе. 3. антропоцентрическая концепция. информация существует лишь в человеческом сознании, в человеческом восприятии. информационная деятельность присуща только человеку и происходит в социальных системах. создавая информационную технику, человек создает инструменты для своей информационной деятельности.

пройдемся по коду: возможно я не понял суть вашего ввода массива, но в циклах вы явно указывали не те размеры что надо.

пропущены операторные скобки "main" раздела.

неправильное использование else, так как он был отнесен совсем к другому оператору if.

исправил все синт. ошибки, добавил вывод массива с сортировкой, исправил директивы.

#include < iostream>

int main()

{

int a[][2] = { 2,6,1,9,5,7,0,10};

for (int i = 0; i < 4; i++)

  if (i % 2 == 0) {

  for (int k = 0; k < 2 - 1; k++)

    for (int j = 0; j < 2 - 1; j++)

    if (a[i][j] > a[i][j + 1])

      std: : swap(a[i][j], a[i][j + 1]);

  }

  else

  for (int k = 0; k< 2 - 1; k++)

    for (int j = 0; j< 2 - 1; j++)

    if ( a[i][j]< a[i][j + 1] )

      std: : swap(a[i][j], a[i][j + 1]);

// вывод результата

for (int i = 0; i < 4; i++) {

  for (int j = 0; j < 2; j++)

  std: : cout < < a[i][j] < < " ";

  std: : cout < < std: : endl;

}

return 0;

}

кривое оформление сайта.. (в приложении код)