Задачу удобно решать с помощью кругов Эйлера (см. рис.).
K1+K2+K3+K4+K5+K6 = 1000
K2+K4 = 250
K4+K5+K6 = 200
K3+K5 = 500
K4 = 20
K5 = 10
K2+K3+K4+K5+K6 - ?
K1 - ?
K2+K3+K4+K5+K6 = (K2+K4)+(K4+K5+K6)+(K3+K5)-K4-K5 = 250+200+500-20-10 = 920
K1 = (K1+K2+K3+K4+K5+K6)-(K2+K3+K4+K5+K6) = 1000-920 = 80
Меню пуск(в Windows XP, Vista, 7, 10), панель задач, рабочий стол, выпадающие контекстные меню, оконные меню меню, полосы прокрутки, различные триггеры(кнопки)
Var
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.
6)
Значение переменной а равно 6
7)
<span>Значение S
равно 73</span><span>
</span>
program q;
var
a: integer;
b: real;
begin
b := 0;
read(a);
b := (a div 10 + a mod 10) / 2;
writeln(b);
end.
На Pascal'e
*Проверил*