1 - регистр
2 - кэш
3 - SSD
4 - HDD
5 - Ethernet
6 - WiFi
Это первая часть. Надеюст разберете мой корявый почерк
Сначала решим данное уравнение
, n∈Z
, n∈Z
_________________________________________________
Составим программу для решения данного уравнения
___________
Program n_1;
uses math;
var n:integer; x:real;
begin
for n:=-5 to 5 do writeln((power(-1, n)*arcsin(1/7)/2+PI*n/2)*180/PI:0:20);
end.
_________________________________________________
Значения грдусной меры углов выводятся с точностью до 20 знаков после запятой
1 ГБ = 1024 МБ
10 рублей = 1000 копеек
1000:1024=0,9765625(такая часть от 1ой копейки будет ценой 1Мб.
// PascalABC.NET 3.3.1611
begin
var sum := 0;
var n := 0;
ReadSeqIntegerWhile(x -> x <> 0).ForEach(x -> begin
n += 1;
if (0 < x) and (x <= 256) and (x mod 2 = 0) then
sum += x;
end);
println('Количество:', n);
println('Сумма:', sum);
end.