5. Нарисуйте схему и заполните пропущенные команды в алгоритме робота. Расставь пропущенные команды в алгоритме для робота.
ПЕРЕДАЙ СООБЩЕНИЕ
ПО ТЕЛЕФОНУ
Начало
I
?
Положи трубку
Дождись гудка
Дождись ответа
Набери номер
Гудки длинные?
Конем
Передай сообщение
Сними трубку
СОЧ ПО ИНФОРМАТИКЕ​

Вариант первый:

Var
   A:longint;
   n,p:integer;
   B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
   Begin
   B:=A mod 10;
   if B = 0 then n:=n+1;
   if B = 5 then p:=p+1;
   A:=A div 10;
   End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

Вариант второй:

Var
   A:string;
   n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
    if A[i] = '0' then n:=n+1
       else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

signed main(){

   int n, m;

   cin >> n >> m;

   vector<vector<int>> a(n, vector<int> (m));

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

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

           cin >> a[i][j];

   int col = 0, mx = a[0][0];

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

       for(int j = 0; j < m; j++){

           if(a[i][j] > mx){

               mx = a[i][j];

               col = j;

           }

       }

   }

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

       swap(a[i][0], a[i][col]);

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

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

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

       cout << "\n";

   }

}