Зная, что в палитре 256 цветов делаем вывод, что один пиксель весит 8 бит, то есть 1 байт. Чтобы узнать сколько весит картинка мы находим кол-во пикселей в картинке: 256*256=65 536 байт. Переводим в кбайт: 65 536:1024=64 кбайт
Верно
Так как я сам решал это не давно
<u>1)</u>program array;
var A : array[1..10000] of integer;
i:integer;
begin
for i:=1 to length(A) do begin
if i mod 3 = 0 then
A[i]:=A[i]*2;
end;
end.
<u>-----------------------------------</u>
<u>2)</u>program fff;
var A : array[1..100] of integer;
i,n:integer;
begin
for i:=1 to n do begin
if i mod 3 = 0 then
A[i]:=i;
end;
end.
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
По моему ответом будет номер (3