жёлтый лимон синяя луковица лимон и 2 луковицы синей
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
1байт = 256 значений. от 0 до 255
значит N = 255 здесь
Огонь был сигналом о нападении в Китае в древности. На башнях Великой Китайской стены зажигали факелы и быстро передавали сообщения по периметру.
Барабан был оповещающим звуковым сигналом... Скорее вего тоже что-нибудь об опасности...