===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var i := a.IndexMin;
Println('Минимальный элемент', a[i], 'имеет номер', i + 1)
end.
Информатика - это наука, которая изучает законы, методы и способы накопления, хранения, обработки и передачи информации с помощью компьютеров и других технических средств. <span>по форме представления информация делится на письмо, звук, осязание, вкус и видео.</span>
40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
600 Мбайт = 600 * 1024 * 1024 * 8 бит = 5033164800 бит
Кол-во = 343597383680 / 5033164800 шт = 68.26666666666667 шт ~= 69 шт (округляем в большую сторону так как кусками тут быть не может)
________________________________________________
- Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт
- '/' - разделить
- '*' - умножить
- '^' - возведение в степень
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var y:double:=1;
var e:=1e-5;
var y1:double;
while true do begin
y1:=y*(1.5-sqr(y));
Writeln('y1=',y1);
if abs(y1-y)<=e then break
else y:=y1;
Writeln('y=',y)
end;
Writeln('Результат: ',y1,', контрольное значение ',1/sqrt(2))
end.
<u><em>Результат:</em></u>
y1=0.5
y=0.5
y1=0.625
y=0.625
y1=0.693359375
y=0.693359375
y1=0.706708468496799
y=0.706708468496799
y1=0.707106444695907
y=0.707106444695907
y1=0.707106781186307
Результат: 0.707106781186307, контрольное значение 0.707106781186547
В)наверно
кассир и сам справится
а дворник зачем?
