«неблагоприятный» случай: школьники собрали по 7 ящиков яблок, груш и слив; всего использован 21 ящик. В свободный ящик можно положить яблоки, груши или сливы, следовательно, имеется по крайней мере 7 + 1 = 8 ящиков, содержимое которых – один из указанных видов фруктов.
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.