Наливаем в емкость 8л 5 +3 л воды, в емкосте 5л остается 2 литра, выливаем воду из 8л емкости, наливаем 2 литра в емкость 8л, затем наливаем 5 литров в емкость 8л, в емкосте 8л 5+2=7 литров воды, выливаем из 5л емкости 1 литр и получаем 4 литра.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var s:=ReadlnString('->');
var a:=RegEx.Matches(s,'\s([бвгджзйклмнпрстфхцчшщ]+)\s',
RegexOptions.IgnoreCase);
foreach var w in a do Writeln(w.ToString.Trim);
end.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.
Var
l,s,x: real;
begin
writeln('Введите площадь и глубину озера:');
read(s,l);
x:=0.0000001/(s*l);
writeln('Соли в наперстке объемом 2см^3: ',x,' г');
end.
Первое число 455
второе число 85
Программа в который используется данный алгоритм