Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>
Перестановки с повторениями
сообщение содержит 3 или 4 цвета.
Вариантов для 3 цвета 3*3*3 = 27
Для 4 цвета подряд 3*3*3*3 = 81
27+81 = 108
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Победа';
for var i:=1 to s.Length do Writeln(s[i:])
end.
<u>Результат</u>
Победа
обеда
беда
еда
да
а
Когда оплачиваешь проезд в троллейбусе, то даешь деньги и кондуктор обрабатывает эту информацию. смотрит достаточная ли сумма или избыточная, и отдает сдачу если нужно.
Также при подаче документов, проверки котнтрольных работ учителем....