var a,b,c:array[1..100] of integer;
i,n:integer;
begin
n:=1;
for i:=1 to 25 do
begin
a[i]:=random(20)+100;
write(a[i],' ');
if (i > 14) and (i <21) then n:=n*a[i];
end;
writeln;
write('Произведение=',n); writeln;
end.
Uses
GraphABC;
var
i, k: integer;
arr: array [1..6] of color;
begin
writeln('Сколько кирпичиков?');
readln(k);
arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;
for i := 0 to k - 1 do
begin
SetBrushColor(arr[random(6) + 1]);
FillRectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);
sleep(20);
end;
end.
Стена из кирпичиков - норм?)
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
25 (10cc) =2^4+2^3+2^0 =11001 (2cc)
19 (10cc)=2^4+2^1+2^0=10011 (2cc)
-----------------------------------------------------
используя формулу А→В =¬А+В приводим данную формулу в условии к виду:
(X&25=0)+(X&19≠0) + (Х&A≠0)=1
рассмотрим случай, когда
(Х&25 =0) +(X&19≠0) =0 и (Х&A≠0)=1
-------------------------------------------------------------------------------------------------
так как 25 = 11001, то (X&25=0) = 0 (т.е. конъюнкция будет "ложь")
при Х={1; 1000; 1001; 10000; 10001; 11000; 11001}
так как 19=10011, то (Х&19≠0) = 0 при
X={100; 1000; 1100}
общее значение : Х=1000 (2сс) = 8 (10сс)
------------------------------------------------------------------------------------------------
ответ 8