ОЧЕНЬ Пример 1 Что будет напечатано в результате работы фрагмента программы?
8:=1; x:=4718 ; k:= x mod 10;
while x div 10 > 0 do begin
x := x div 10;
:= s + 1
end;
if s = 2 then
x := x + k
else
x := x*10 + k
writeln(x);
ответ: :​

Коммуникатор был придуман в начале 2000х и представлял из себя устройство, замещающее компьютер, когда к нему нет доступа (в дороге к примеру), и имеющий функции слежения за положением(путешественники могут определить куда идти если заблудились). Он не имел четких требований, и разных корпорации делали как хотели - с разными элементами управления(сенсорный экран, кнопки и т.п.). Планшетный компьютер был придуман Стивом Джобсом и его Корпорацией Apple®©. В дальнейшем и другие компании переняли его идею. Планшетный компьютер предназначен для замены ПК, как в пути, так и дома. Но главное отличие - маркетинг. Плохие Корпорации® придумывают интересное название коммуникаторы(например тот же планшетный компьютер), меняют там одну составляющую(в случае с планшетным компьютером увеличивают экран) и продают как не имеющее аналогов устройство.

Const
  n=4;
var
  arr: array[1..n, 1..n] of integer;
  i, j, t, buf: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите элемент: ');
        readln(arr[i,j]);
      end;
    writeln('Введеная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
          write(arr[i,j]:4);
      writeln();
    end;
//Сортировка
  for j:=1 to n do
    for i:=1 to n-1 do
      for t:=i+1 to n do
        if arr[i,j] > arr[t,j] then
          begin
            buf := arr[i,j];
            arr[i,j] := arr[t,j];
            arr[t,j] := buf;
           end;
  writeln('Отсортированная матрица:');
   for i:=1 to n do
      begin
        for j:=1 to n do
          write(arr[i,j]:4);
        writeln();
      end;
  end.