16 = 2^4, значит один пиксель займет 4 бит
(640 * 280 *4) / 8 = 89600 байт
Ответ: 89600 байт
Var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1<r2 then min:=r1 else min:=r2;
if r3<min then min:=r3;
writeln('Лучший результат = ',min);
end.
Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8
Var a:array[1..100,1..100] of integer;
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
<span>end.
Как то так.</span>
Program BiFi;
Var x,a,s:real;
k,i:integer;
Begin
readln(x);
readln(k);
s:=0;
a:=x;
for i:=1 to k do begin a:=a/x;
s:=s+a;
writeln(s:6:3);
readln;
end.