Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
Практики не было давно.
Начинаем с конца. Нужно получить 58, поэтому с него и начнем.
58 нельзя извлечь из-под корня (извлечение корня обратно возведению в квадрат), но можно прибавить 3 (обратно вычитанию 3): 58+3=61
61 тоже не извлечь из-под корня, прибавляем 3: 61+3=64
Корень 64=8.
8+3=11
и, наконец, 11+3=14. Записываем действия в обратном порядке: сначала второе действие и т.д. Есть непонятные места?
В левом круге (зубр) - 18000
В правом круге (тур) - 12000
между ними зубр&тур 5000
Зубр|Тур=Зубр+тур-зубр&тур =18000+12000-5000=25000
Ответ: 25000
Ответ:
0 - нет ничего,отрицание,нет.
1 - носитель информации,подтверждение,да.
Объяснение:
0 - 0
1 - 1
10 - 2
11 - 3
100 - 4
Это всё коды из системы счисления,они обозначают числа.В данном случа - это двоичная система счисления
//PascalABC.NET
//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x->f(x)).Println;
end.