V=i*pix. N=256, значит i=8( N=2 в степени I). V=8*786432=6291456 бит=786432 байт=768 кб
Активная ячейка В2
диапазоны: А1:А2, D1:E2, A4:C4
Program prog;
uses crt;
var a: array [1..30] of integer;
i: integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 30 do
begin
if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
write (a[i], ' ');
end;
end.
35 минут=2100 секунд
40 Мбайт=40*2^23 бит =5*2^26 бит
--------------------
t1=5*2^26 : 2^18 = 5*2^8=5*256=1280 c (из Б в В)
t2=5*2^26 : 2^19 = 5*2^7=5*128=640 c (из А в Б)
1280+640=1920<2100
t=2100-1920=180c
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.