Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.
Uses crt;
var a: integer;
begin
readln(a);
a:=(a div 10 mod 10)*100+(a mod 10)*10+(a div 100);
writeln(a);
<span>end.</span>
16 цветов (градаций серого) кодируются 4 битами, т.к. 16=2^4. Значит один пиксель (точка) весит 4 бита. Всего точек 100*100=10000. Значит информационный объём всего файла будет 10000*4=40000 бит. 40000/8= 5000 байт. 5000/1024~=4,88 Кбайт
В римской системе из левого большего числа вычитается правое меньшее.
XLCDM
X- 10
L-50
C-100
D-500
M-1000
Получается из M-D-C-L-X= 1000-500-100-50-10=340
Ответ- 340