0,5 Мбайт = 0,5*1024 Кбайт = 512 Кбайт = 512*1024 байт = 512*1024*8 бит
Память для одного пикселя = 512*1024*8 / (128*128) = 256 бит
Количество цветов = 2^256 (очень-очень много)
Человек - рыжеволосый,
арбуз - семикилограммовый,
чашка - фарфоровая,
автомобиль - японский,
жесткий диск - большой,
монитор - семнадцатидюймовый.
По-моему, это даже первоклассник составит....
<span />
program task32595137;
const maks=5; {Сюда вставляем размерность массива}
var
masiv:array[1..maks] of real; {сам массив}
i:integer;
begin
randomize; {встряхиваем генератор случайных чисел}
for i:=1 to maks do begin
masiv[i]:=(random(300)-10)/10; {создаем нам нужные числа, по хорошему надо вынести в отдельную процедуру}
write('i',i,'=',masiv[i],' '); {выводим до сравнения с условием про округление}
if abs(masiv[i])<1 then masiv[i]:=round(masiv[i]); {делаем наше условие}
write('i',i,'=',masiv[i],' '); {печатаем после применения нашего условия про округление.}
end; {for i}
end.
Const N = 10;var a: array [1..N] of longint;i,d,j:longint;begin for i:=1 to N do read(a[i]); for j:=1 to 3 do begin d:=a[n]; for i:=N downto 2 do a[i] := a[i-1]; a[1]:=d; end; writeln('После сдвига: '); for i:=1 to N do write(a[i],' '); writeln; end.