<h3>
<em><u>Ответ</u></em><em><u>:</u></em><em><u /></em></h3>
Повар - Миша , Врач - Коля,
Инженер - Дима,
Милиционер - Саша .
<h3>
<em><u>Решение</u></em><em><u>:</u></em><em><u /></em></h3>
На фотографии .
<span>1)3.14159 +
</span><span>2)150 +
</span><span>3)0,005 +
</span><span>4).12345 +
</span><span>5)16. (если точку случайно поставили, то правильно, если должна быть то нет)
</span><span>6)15.0Е-04 -
</span>7)2.345Е2 -
<span>8) 1.15Е-3 -
</span><span>9) 12.SE.3 -
</span><span>10) 12Е+5 -
</span><span>11) Л23ЕЗ -
</span><span>12) 1.15Е-3 -
</span>Минут - не правильно, плюс - правильно
При использовании палитры из 16 цветов для хранения одного пикселя требуется log(2)16 = 4 бита. Объем памяти для хранения изображения = 24*24*4 бит = 2304 бит
Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
//Pascal ABC.NET 3.1 сборка 1256
Var
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do
begin
inc(i);
x:=random(150001);
s:=s+x;
writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
end;
writeln('Res=',i);
end.