"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?
про пятеричные записи ничего не понял... :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию
var x,a,b: longint;
begin
for var i := 999 DownTo 100 do begin
a := 0;
b := 1;
x := i;
while x>0 do begin
if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);
x := x div 5;
end;
if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);
end;
end.
прога проводит расчет для всх трехзначных чисел от 999 до 100
итого мы видим что максимальное подходящее число это 960
при необходимости прогу можно переделать чтобы она находила только максимальное число.
165 стр.
Объяснение:
мороженое & ( пирожное | шоколад ) = 427 стр.
мороженое & пирожное = 262 стр.
мороженое & пирожное & шоколад = 61 стр.
мороженое & ( пирожное | шоколад ) =
(мороженое & пирожное) | (мороженое & шоколад)
Кол-во стр. (мороженое & пирожное) | (мороженое & шоколад) минус кол-во стр. мороженое & пирожное равно кол-во стр. мороженое & шоколад. Значит, кол-во стр. мороженое & шоколад равно 427-262=165 стр.
(На картинке иллюстрация этих множеств)
