Вклассе 35 учеников, каждый из которых любит футбол, волейбол или баскетбол, а некоторые – два или даже три из этих видов спорта. 24 ученика любят футбол, 18 – волейбол, 12 – баскетбол. при этом 10 учеников одновременно любятфутбол и волейбол, 8 – футбол и баскетбол, а 5 – волейбол и баскетбол. сколько учеников этого класса любят все три вида спорта?

3  учеников этого класса любят все три вида спорта

Для початку визначаємо площу острова на якому мешкають робінзони: 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.

1)алгоритм решения :   программа должна запрашивать у пользователя следующую информацию: диаметр бака; высота бака; расход краски (площадь поверхности, которую можно покрасить одной банкой краски).в результате программа должна выдавать количество требуемых банок. при получении дробного числа округление должно всегда происходить в большую сторону.площадь крыши бака (круга) вычисляется по формуле  p * d2  /4  (где  p  – число пи,  d  - диаметр).площадь боковой поверхности цилиндра:   p * d * h  (где  h  – высота). программа на языке паскаль:   const pi = 3.14;   var d, h, b: real;       top, wall, q: real;       q_int: integer;   begin write('диаметр: '); readln(d); write('высота: '); readln(h); write('окрашиваемая площадь одной банкой: '); readln(b);         top : = pi * sqr(d) / 4.0;     wall : = pi * d * h;       q : = (top + wall) / b;     q_int : = trunc(q) + 1;   write('количество банок: ', q_int);   readln end.