<span>это значит что пользователю будут показывать картинку, и качество картинки зависит от пожеланий пользователя и возможностей оборудования, т.е. если у вас 14' ega то при всем вашем желании он 1960*1280 показывать не будет, а вот между 640*480 и 800*600 можно будет выбрать.</span>
//PascalABC.Net 3.2
begin
var n:=readinteger('Введите число: ');
var count:=0;
repeat
if abs(n mod 10)=1 then count+=1;
n:=n div 10;
until n=0;
write ('Единиц: ', count);
end.
Begin
var r:=1.0;
for var i:=1 to 7 do r*=0.25;
write (15/(256*r));
end.
Const
LIM=2; W=8; D=2; n=5; m=5; { n строк, m столбцов }
var
a: array [1..n,1..m] of real;
p: real;
h: boolean;
i, j: integer;
begin
Randomize;
WriteLn('A=');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=LIM*Random;
Write(a[i,j]:W:D);
end; WriteLn;
end;
WriteLn('B=');
for i:=1 to n do begin
p:=1; h:=false;
for j:=1 to m do
if (abs(a[i,j])>=1) and (abs(a[i,j])<=1.5) then begin
p:=p*sqr(a[i,j]); h:=true;
end;
if h then Write(p:W:D) else Write('?':W);
end; WriteLn;
Write('Нажмите ENTER...'); ReadLn;
end.