var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do if a[i]<0 then write(i,' ');
end.
function f(x:real):real;
begin
f:=2*sin(x)*sin(x)+1;
end;
var x:real;
begin
readln(x);
writeln(f(x));
end.
Нужно одновременно нажать клавиши Ctrl+Alt+Del
По формуле или
Глубина цвета бит
Объем памяти = 512 * 512 пикселей * 8.0 бит = 2097152.0 бит
2097152.0 бит = 262144.0 байт = 256.0 Кбайт = 0.25 Мбайт = 0.000244140625 Гбайт = 2.384185791015625e-07 Tбайт
Посылка это - такая вещь, короче, коробка и в ней предмет, и его можно передать из дальних городов или стран, вот это и называют посылкой