Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Гвоздей осталось ',(n*0.6*0.25):0:0,' шт.');
End.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.
<u><em>Тестовое решение</em></u>
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)
Ответ:
Удаление всей информации с диска