Программа:
var i: Integer;
a: real;
begin
for i:=1 to 12 do a:=a+sqrt(i);
writeln(a);
end.
Влить во 2 ведро (3л)
перелить в 1 (7л)
влить во 2 ведро (3л)
перелить в 1 (7л)
отметить 6 литров
В любой, у которой основание системы счисления превышает 8.
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
var s:=ReadInteger('n=').ToString;
if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
then Writeln('Есть одинаковые цифры')
else Writeln('Нет одинаковых цифр')
end.
<u><em>Тестовое решение:</em></u>
n= 141
Есть одинаковые цифры
101011011=1*2^0+1*2^1+1*2^3+1*2^4+1*2^6+1*2^8=1+2+8+16+64+256=347
100011001=1*2^0+1*2^3+1*2^4+1*2^8=1+8+16+256=281
1110101001=1*2^0+1*2^3+1*2^5+1*2^7+1*2^8+1*2^9=1+8+32+128+256+512=937