Остатки от деления:
- 2330 | 2 => 0
- 1165 | 2 => 1
- 582 | 2 => 0
- 291 | 2 => 1
- 145 | 2 => 1
- 72 | 2 => 0
- 36 | 2 => 0
- 18 | 2 => 0
- 9 | 2 => 1
- 4 | 2 => 0
- 2 | 2 => 0
- 1 | 2 => 1
Записываем в обратном порядке 
Ответ: 100100011010
<em>Есть еще способ через таблицы, но их надо иметь</em>
1) Я в Excel не очень разбираю, но считаю, что ответ "Б" эквивалентен ответу "Г"
2) Начиная из клеток вариантов "А" и "Б" робот упирается в стену во время выполнения алгоритма. Начиная из клетки A5 робот выйдет за пределы поля, а начиная из клетки D5, робот перейдет 6 раз. => Ответ: "В".
3) Выражение <span>(¬ А ~ В) ∧ С ∨ А ∧ (С ~ В)
</span>//PascalABC.Net 3.2
<span />//выход(ответ): 4568
<span />var
<span />s:string;
<span />a, b, c: boolean;
<span>
function f(n: integer):boolean;
begin
case n of
1 : s:='к';
2 : s:='к';
3 : s:='кт';
4 : s:='кп';
5 : s:='кп';
6 : s:='п';
7 : s:='ктп';
8 : s:='п';
9 : s:='пт';
10: s:='кт';
11: s:='т';
end;
a:='к' in s;
b:='т' in s;
c:='п' in s;
result:=(not a and not b) and c or a and (c and not b);
end;
begin
for var i:=1 to 11 do if f(i) then write (i);
end.</span>
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите строку: ");
string str = Console.ReadLine();// строка
Console.WriteLine("Введите подстроку: ");
string podstr = Console.ReadLine();//подстрока
var temp = str.Split().Where(i => i.Contains(podstr));
Console.WriteLine("Слова содержащие подстроку:");
foreach (var word in temp)
Console.Write(word + " ");
Console.ReadLine();
}
}
}
var sum,x:integer;
begin
x:=1;
while x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.
