Разрешающая способность 200 dpi означает, что на отрезке длиной 1 дюйм сканер различит 200 точек.
Необходимо перевести разрешающую способность в точки на сантиметр (1 дюйм=2,54см):
200 dpi/2.54=79точек/см
Следовательно, размер изображения в точках будет 1659*2291 точек
Общее количество точек равно 1659*2291=3800769
Объем рисунка равен 16*3800769=60812304бит=7601538байт=7423 Кб=7,2Мб
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub
Вот :
var y,x:integer;
begin
writeln('Введите x');
read(x);
y:=x*x;
writeln;
write('Значение функции равно: ');
write(y);
end.
Линейный алгоритм или следование – это тип алгоритма, в котором последовательность действий не меняется в его процессе выполнения.
Т.е 2