Const n=10;
var a:array[1..n]of integer;
i,k,l,aa: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 11 =0) and (a[i]<1000) and(a[i]>99) then
begin
k:=0;
aa:=a[i];
for i:=1 to 3 do
begin
l:=aa mod 10;
if l=3 then k:=1;
aa:=aa div 10;
end;
if k=1 then writeln(a[i]);
end;
end.
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
найдем размер изображения:
1) всего 16 цветов., значит на 1 пиксель приходится 4 бита памяти
2)размер изображения=800*600*4=1 920 000 бита
теперь найдем <em>Сколько секунд потребуется модему</em><span>, </span><em>передающему сообщения со скоростью 32000</em><span> бит/с это изображение:</span>
<span>1) 1 920 000 бита / <em>32000</em> бит/с = 60 с</span>
<span>Ответ: 60с</span>