Введите с клавиатуры одномерный числовой массив из 9 элементов. сверните его в матрицу размером 3x3, разместив первую тройку элементов в 1-й строке матрицы, 2-ю тройку - во второй строке, 3-ю тройку - в третьей строке.

Program qq; var a: array[1..9] of string;       b: array[1..3,1..3] of string;     i, j, k: integer;       begin i: =0; for i: =1 to 9 do  readln(a[i]); i: =0; j: =0; k: =1; for i: =1 to 3 do  for j: =1 to 3 do  begin  b[i, j]: =a[k];   k: =k+1;   end; for i: =1 to 3 do for j: =1 to 3 do  begin  write(b[i, j]);   if (j=3) then writeln();   end; end.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

 

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

 

 

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

 

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж