Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231
// PascalABC.NET 3.0, сборка 1128
begin
var D:=ReadInteger('Номер дня (1-31)');
var M:=ReadInteger('Номер месяца (1-12)');
var G:=ReadInteger('Номер года (1900-1999)');
var S:=(12-M) div 10;
var K:=Trunc(Int((G-1900-S)*365.25)+Int((M+12*S-2)*30.59)+D+29);
var N:=K mod 7;
case N of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
var a,b,c,d:integer;
begin
writeln('Вступительный балл');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then
writeln('Ученик принят');
else
writeln('Ученик не принят');
end.
Обозначения:
К=0
О=1 ( троичная система счисления)
Р=2
список:
№ 3 сс 10сс
1 00000 0
2 00001 1
3 00002 2
4 00010 3
...............................
182 Х 181 (10сс)
181 (10сс)= 20201 (3сс) =РКРКО
Х=РКРКО
ответ РКРКО
)))))))))))))))))))))))))Страны, как ещё?!