// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var m:=2*2;
var s:=m;
for var i:=3 to 10 do begin m*=2; s+=m end;
Writeln(s)
end.
<u><em>Тестовое решение:</em></u>
2044
Program WordsCounter(output);
var str: string;
i, count: integer;
begin
write('Сторка: ');
readln(str);
i := length(str);
if i > 0 then begin
count := 1;
while i > 0 do begin
if str[i] = ' ' then
count := count + 1;
i := i - 1;
end;
end
else
count := 0;
writeln('Число слов: ', count);
readln;
<span>end.</span>
Герой может за один ход сдвинуться в клетку, соседнюю с данной по стороне или углу (если клетка проходима). За границы карты герой выйти не может. Теперь Вася хочет положить несколько слитков золота (в одной клетке — один слиток) так, чтобы кратчайшее расстояние до них от стартовой клетки было максимальным. Сколько клеток с золотом будет на этой карте? В качестве ответа укажите одно натуральное число, например, 4.
<span>КОМЕНТАРИЙ -Для карты, изображенной на рисунке ниже ответ 7 – есть 7 клеток (правый столбец и нижняя строка карты), кратчайший путь до которых требует 2 хода. До всех остальных клеток можно дойти за 1 ход.</span>