На одному квадратному безлюдному острові, довжина сторони якого х м., мешкали у потерпілих у корабельній аварії робінзонів.з’ясувати на скільки квадратних метрів менше прийшлось на кожного робінзона після того , як на острів висадився ще один робінзон.

Для початку визначаємо площу острова на якому мешкають робінзони: plostr: =k*k; . друга дія, що повинна виконуватись – наявність вільного місця на острові vsostr: =plostr-s*p, і на останок, якщо вільне місце буде то розраховуємо кількість робінзонів яка б могла розміститися на острові у випадку аварії корабля поблизу острова: kp: =vsostr div p. визначаємо типи змінних. так як за умовою і сторона острова та площі мають бути цілими числами більшими за нуль але не обмеженими по величині виберемо для них тип integer, кількість людей, що проживають на острові також число ціле і воно може бути більше ніж 255(тип byte) то залишається обрати також тип integer. в результаті ми також отримуємо числа цілі але можливо там будуть і від’ємні значення тому тип змінних визначаємо як integer. var k, p, s, plostr, vsostr, kp: integer; beginwrite (‘введіть кількість проживаючих на острові робінзонів: ’); readln(p); write (‘введіть довжину острова у метрах: ’); readln(k); write (‘введіть площу, яка визначена законом для проживання одного робінзона: ’); readln(s); plostr: =k*k; vsostr: =plostr-s*p; if  vsostr < 0  then  write(‘права робінзонів порушені, так як площі острова не достатньо’)elsebeginif  vostr=0  then  write (‘на острові місця вистачить тільки для тих робінзонів, які там вже проживають’)else  beginkp: =vsostr div p; if  kp> 0  then  write(‘ на острові можуть бути поселені ще ’,kp,’ робінзон(ів)’)else  write(‘на острові місця вистачить тільки для тих робінзонів, які там вже проживають ’); end; end; readln; end.

Объяснение:

так как использованы цифры 123 среди которых найбольшая 3 и если предположить что запись в х-ричной системе исчисления, то х должна превышать 3.

таким образом минимальным основанием данной системы счисления может быть 4.