Var
i:integer;
a:array[1..11]of integer;
begin
for i:= 1 to 11 do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
write('Кратны 2: ');
for i:=1 to 11 do
if a[i] mod 2=0 then write(a[i],' ');
<span>end. </span>
<em><u>Вставка</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u>.</u></em><em><u> </u></em>
Дорогой Дедушка Мороз,
В этом году я вёл себя хорошо и старался не (инверсия) писать низкокачественный код (коньюнкция). Я бы очень хотел найти под ёлкой все 16 томов SAO на японском или (<span>дизъюнкция)</span> флешку с нормальным GUI для Java, ибо писать в блокноте бесит. Помни, я всё ещё тебя верю.
Глеб, 17 годиков.
Var a,b,c,n:integer; f:boolean;
begin
readln(a,b,c);
f:=true; n:=0;
while f do
begin
if f and (a>0)
then begin a:=a-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
if f and (c>0)
then begin c:=c-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
end;
writeln(n);
end.
Пример:
3 3 3
7
<span>Израсходовали
8 белой краски и Х – коричневой.
Iб= 2 бит</span>
<span>Pб=8/(8+8+Х)
1/p=2^</span>I<span>,
(16+Х)/8= 2^2
16+Х = 32,
следовательно Х = 16.
Ответ: было израсходовано 16 банок коричневой краски.</span>