Рисунок с кругами Эйлера - в прилагаемом файле.
Решение:
К1+К2+К3 = 20000
К1+К2 = 14000
К2+К3 = 16000
К2 - ?
К2 = (К1+К2)+(К2+К3)-(К1+К2+К3) = 14000+16000-20000 = 10000
Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>
Отключить ток
отсоединить пострадавшего
оказать первую медпомощь
(это ты должна уметь)
помог - оцени ;)
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.