Const
n=15;
var
s:array[1..n] of real;
st,p:real;
i,k:integer;
begin
Writeln('Введите ',n,' сумм остатков');
st:=0;
for i:=1 to n do
begin Read(s[i]); st:=st+s[i] end;
Writeln('Удельные веса остатков по магазинам');
k:=0;
for i:=1 to 15 do
begin
p:=s[i]/st*100;
Writeln(i,' - ',p:0:1);
if p>12 then Inc(k)
end;
Write('Количество магазинов с уд. весом остатков >12%, равно ');
Writeln(k)
end.
<em><u>Тестовое решение:</u></em>
Введите 15 сумм остатков
0.37 1.5 2.11 3.4 9.3 2.89 4 0.85 0 0.73 4.2 5.05 3.5 2.18 0.94
Удельные веса остатков по магазинам
1 - 0.9
2 - 3.7
3 - 5.1
4 - 8.3
5 - 22.7
6 - 7.0
7 - 9.8
8 - 2.1
9 - 0.0
10 - 1.8
11 - 10.2
12 - 12.3
13 - 8.5
14 - 5.3
15 - 2.3
Количество магазинов с уд. весом остатков >12%, равно 2
<em><u>Полное решение по заданию находится в файле формата MS Word-2003</u></em>
Program math;
var
x, a, t : real;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
t := (sqrt((a-b)*(a-b))+4)/((a-2*b)+1);
writeln('t=', t:10:4);
end.
101111(2) = 1*2^5+0*2^4+1*2^3+1*2^2+1*2^1+1*2^0=
=32+8+4+2+1=47(10)
<span>Внешний материал антисрессовых игрушек и подушек тм «Штучки к которым тянутся ручки» это гладкий эластичный прочный трикотаж (стрейч или велюр). Некоторые модели сочетают детали из стрейча и велюра. Стрейч дает более плотный контакт с наполнителем, велюр более мягкий на ощупь. Наполнитель — вспененный полистирол — крохотные шарики, диаметром менее миллиметра, совершенно инертны, не крошатся, не впитывают влагу, не впитывают запахи. Легок в уходе: допустима деликатная стирка, сохнет быстро. Прикосновения к таким маленьким шарикам задействуют физиологические механизмы мелкой моторики рук, что, в свою очередь, успокаивающе влияет на весь организм. Красивые, жизнерадостные, веселые модели «Штучек к которым тянутся ручки» приятны не только на ощупь, но и визуально. Из них получаются отличные подарки для любимых и друзей!<span>
</span></span>