Input a, b
if (a=>0) and (b=>0) then c=a+b else if (int(a/2)<>a/2) or (int(b/2)<>b/2) then c=(a+b)/2
Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
<span>end.</span>
<span><span>Дано: Кб = Кс =8,</span> i 6 = 2 бита.
</span>Найти: Кк - ?
Решение:
<span>1)i 6
= log2(l/P6),
2 = Iog2(l/p6<span>),
1/р6 = 4, р6 = '/4 - вероятность расхода белой
банки;</span></span>
<span>2)<span>N = Кб/рб = 8/(1/4) = 32 - банки с
краской было всего;</span></span>
<span>3)<span> <span>Кк.= N - К6
- Кс = 32 - 8 - 8 = 16 банок коричневой краски.
</span>Ответ: <span>16 банок коричневой краски.</span></span></span>
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания