Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
begin
if (x mod 5)=0 then s:=s+x;
end;
writeln(s);
end.
for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' ');
end.
I = (x*y)*i
N=2^i
I-вес картинки в битах.. 128кбайт=128 *1024*8=1048576 (бит)
(x*y)-разрешение (1024*512)
i- глубина(битность) кодирования одного пикселя
N- количество цветов в палитре
из первого уравнения выражаем i=I / (x*y) = 1048576 / (1024*512) =2 (бита)
тогда N = 2^2=4
от-т: в палитре 4 цвета