белых шаров всего 1
тогда если взять 2 любых шара то мы получим либо 2 черных либо черный и белый.
В виде файла и в виде текстовова
// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
ReadlnString('>').ToCharArray.Shuffle.Println('')
end.
<u><em>Тестовое решение:</em></u>
> Информатика
фмИатрниаок
((48*36*48)*8)/1024/8=81 Кбайт.
Вроде так,) строго не суди)
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.