Ответ:
Объяснение:
Var a,b,x,k,j : Integer;
Begin
Read (a);
Read(b);
Read(x);
While x<>0 do
Begin
If x mod 10=a then k:=k+1;
If x mod 10=b then j:=j+1;
X:=x div 10;
End;
If k=j then WriteLn('одинаковое количество ');
If k>j then WriteLn(символов а больше)
Else
WriteLn (символов b больше)
Например:
Звезда это О, их свойства это С
в О название звезды, в С удаленность от солнца, масса
Сидел, искал информацию в интернете по поводу неприкладных программ и по сути ничего толкового не нашел. Но судя по тому, что прикладные программы - это почти все программы которыми мы пользуемся (всевозможные редакторы, мультимедиа приложения, разные системы и т.п) и ставятся на компьютер они после, отдельно.
Могу сделать вывод, что неприкладными программами можно считать системный софт <span>(типа микропрограмм, или firmware), и по сути они являются частью оборудования.</span>
Если препятствий нет, то
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
нц пока сверху свободно
вверх
кц
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
кон<span>
</span>