Ответ:
12
Объяснение:
Элементарная арифметика 36/6 = 6 , а 6+6 = 12
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.
x = 29
y = 20
Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
if y <= x then
begin
x := x - 3;
y := y * 2;
end
else
begin
y := y - 3;
x := x * y;
end;
end;
writeln(x,' ', y);
end.
1024*512 = 524288 пикселей
256 кб(килобайт) = 2097152 кило бит
2097152 кило бит/524288 пикселей = 4 бита выделено на каждый пиксель.
4-ю битами можно закодировать 15 цветов. (1111(2) = 15(10) )
4 бита = 1111 (макс.возможно) = 15 градаций (вариантов) цветов на один пиксель.
const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.