Предмет: Информатика,
автор: popcorina
СРОЧНО!!!!!!!!НУЖНО ПРЯМО СЕЙЧАС!!!!!!!
Вася нашёл на чердаке старую шахматную доску размером N * N клеток. Её правая нижняя клетка была белой, а каждая клетка имела размер 1 * 1. Из хулиганских побуждений Вася выпилил лобзиком все белые клетки доски, находившиеся у её краёв.
Определите периметр оставшейся фигуры или фигур.
На рисунке приведён пример для доски размером 4 * 4. Границы, входящие в периметр, помечены красным.
Формат входных данных
Вводится одно число N (2 ≤ N ≤ 2 * 109).
Формат результата
Выведите одно число - периметр получившейся фигуры (или фигур).
Примеры
Входные данные
4
Результат работы
24
Примечания
Система оценки: Решения, верно работающие при 2 ≤ N ≤ 1000 будут получать не менее 50% баллов.
Приложения:
Ответы
Автор ответа:
0
ооооо, Высшая проба))))))
Автор ответа:
0
д хоть на сколько, у меня просто 0
Автор ответа:
0
скинь пожалйста
Автор ответа:
0
var n,a, i, p,c,t:integer;
b:array [1..100000] of integer;
begin
readln(N);
p:=4*n;
for i:=1 to (4*n-4) do begin
if i mod 2 = 0 then b[i]:=1;end;
c:=(n div 2) -1;
t:=(n div 4);
if (n mod 2 = 0) and (b[1]=0) then p:=p+ 8*c;
if (n mod 2 <> 0) and (b[1]=0) then p:=p+8*t;
writeln (p);
end.
b:array [1..100000] of integer;
begin
readln(N);
p:=4*n;
for i:=1 to (4*n-4) do begin
if i mod 2 = 0 then b[i]:=1;end;
c:=(n div 2) -1;
t:=(n div 4);
if (n mod 2 = 0) and (b[1]=0) then p:=p+ 8*c;
if (n mod 2 <> 0) and (b[1]=0) then p:=p+8*t;
writeln (p);
end.
Автор ответа:
0
блен, чел, я тебя люблю
Автор ответа:
0
)))))
Похожие вопросы
Предмет: Математика,
автор: stepan062008
Предмет: Математика,
автор: stasukdara5
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: ПрохорФофанов