сначала нужно узнать размер 640*480*3=921600байт, переведем теперь в биты 921600*8=7372800 теперь делим и получаем секунды 7372800/28 800=256сек
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2();
(a,b):=(a/2,b+30);
write(a,' ',b);
end.
B = 2; d = 17
b<=15 ⇒ 2<=15 ⇒ true (истина) ⇒ b = b+d = 2+17 = 19
d = d+1 = 17+1 = 18
b = b+d = 19+18 = 37
Ответ: b=37
var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.