Вернее Сервисное обеспечение + єто программа
Если(условие)
{
команды
}
Если условие истинно, то выполняются команды, иначе же(если условие ложно), они не выполнятся.
<h2>Пункт 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 4 + 2 + 1 = 39₁₀
<h2>
Пункт 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 64 + 0 + 0 + 8 + 4 + 2 = 206₁₀
<h2>Пункт 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 + 32 + 0 + 8 + 0 + 2 + 0 = 170₁₀
<h2>Пункт 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 0 = 126₁₀
Program dfg;
var x, y: integer;
begin
read(x,y);
If (y<=(2-x*x)) and ((y>=x) or (x>=0)) then write ('да') else write ('нет');
end.
Со сложным условием
Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.