Var
p, r: real;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
read(f, p);
Close(f);
r := p - 0.1 * p;
r := r + 0.1 * r;
writeln(r:0:2)
end.
Тестовое решение:
9.90
Да могут ведь например 3м
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandomReal(n,1,50);
a.Println;
var m:=a.Min;
if m<>0 then
for var i:=0 to n-1 do a[i]/=m;
a.Println
end.
<u>Тестовые решения:</u>
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304
n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,1,50);
a.Println;
var m:=a.Max;
if m<>0 then
for var i:=0 to n-1 do a[i]+=m;
a.Println
end.
<u>Тестовые решения:</u>
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50
n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
Для начала посчитаем сколько всего времени мальчик затратил на перекладывание рыбок в банку 40*2=80, затем посчитаем сколько он затратил времени, чтобы поймать рыбок 40*5*5%=210 всего 290/60=4,8мин
таблица в excel
А1 количество рыб В1 время на улов С1 время на перекладывание D1 общее время
A2-A41 ПРОСТО ПРОСТАВЬ ЦИФРЫ B2 вставь функцию =СУММ(B2;5*5%) и протяни до значения В42 и так далее
В задании не указано, чем разделены группы в строке. Поэтому принято, что группа состоит из нулей и единиц, а разделителями групп может быть любое количество любых иных символов. Если это не так, просто вводите те символы-разделитеоли, каккие считаете нужными.
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Вводите:').MatchValues('[01]+')
.Where(s->s.Length.IsOdd).ToArray;
var b:=a.Select(w->w.ToCharArray.Where(c->c='1').Count).ToArray;
a.Zip(b,(p,q)->p+' - '+q).PrintLines
end.