uses CRT;
var s: string;
n,i,k,j: integer;
begin
read(n,s);
k:=1;
for i:=1 to n*2 do
begin
if s[i]='0' then
begin
j:=j-k;
k:=k*2;
end else begin
j:=j+k;
k:=1;
end;
i:=i+1;
end;
write(j);
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.04.2021, 19:57

Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой...

Перевод с Turbo Pascal в ABC Pascal
помогите пожалуйста с переводом, никак не могу разобраться( program Mayatnik; uses graphABC,...

Перевод из Pascal в C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real;...

	21.04.2021, 19:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.04.2021, 19:57

Помогаю со студенческими работами здесь

Перевод из Pascal в C++
Здравствуйте! Помогите,пожалуйста, с переводом программы из pascal в С++ program integral; uses...

Перевод с С++ в pascal
Помогите, пожалуйста, перевести код с С++ в pascal: #include #include using namespace std; ...

Перевод из Pascal в C++
Здравствуйте, помогите пожалуйста с переводом. program Korovi; var n, k, i, j: integer; l, r,...

Перевод из Pascal в C++
var n, i, j: byte; a: array of word; f: text; begin assign(f, 'c:\INPUT.TXT'); ...

Перевод из С++ в Pascal
#include <stdio.h> int main() { unsigned int n = 0; unsigned int way = 0xffff, tmpWay; ...

Перевод pascal в с++
ПОмогите с переводом с Pascal в c++. Задача:b) «Почтовые отделения». Вдоль прямой дороги...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх