5. Жанама менюдің қандай командалары жиі қолданылады?
​

ниже

Объяснение:

#include <iostream>  

using namespace std;

void main()

{

   SetConsoleCP(1251);//Включаем русский язык

   SetConsoleOutputCP(1251);  

   int a,b,i;//Инициализация переменных

   a=rand()%10+1;//Генерируем число от 1 до 10  

   cout<<"Компьютер загадал число от 1 до 10\n";

   cout<<"Введите число и нажмите <Enter>\n\n";

   for(i=1;i<6;i++)//Цикл проверки

   {

        cin>>b;//Ввод числа

       if(b==a)//Сравнение чисел

       {

           cout<<"Вы выиграли! Поздравляю!\n";

           cout<<"Вы отгадали число с "<<i<<"-ой попытки!\n";

           break;

       }

       if(b>a)

       {

           cout<<"введённое число больше задуманного\n";

       }

       if(b<a)

       {

           cout<<"введённое число меньше задуманного \n";

       }

   }

   if(b!=a&&i==5)//Проверка

   {

       cout<<"Вы не смогли угадать число\n";

   }

}

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный