Тут подбором наверное нужно решать. Просто переводим в другие системы, пока не получится то, что просят (100). Чтобы не делать тут длинные лишние записи, я напишу сразу то, что должно получаться.
Если тебе обязательно нужно по очереди все перебрать - перебирай.
49 в семиричную
49:7=7 (0)
7:7=1(0)
Записываем снизу вверх:
100 - то, что и просили.
В семеричной системе счисление основание 7 (потому она и семеричная)
Ответ: 7
Ответ "В"..........................................
Uses crt;
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
p.s.Где мы выводим на экран значения площади,там после второй S запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! Спрашивайте,если что не понятно!
Program Test;
var A, B, C, S, K: byte;
begin
ReadLn(A, B, C);
S := ((A * C) * 2) + ((B * C) * 2);
K := S div 8;
if (k mod 10) > 0 then
begin Inc(K);WriteLn('Потребуется купить ', K, ' банок краски');
end;
if (k mod 10) < 0 then WriteLn('Потребуется купить ', K, ' банок краски');
end.
82 числа в этом промежутке