Упрощение
(A+B)(!A+B) -> A(!A+B)+B(!A+B) A(!A+B) -> !AA+BA !AA -> 0 !AA+BA -> BA B(!A+B) -> !AB+BB BB -> B !AB+BB -> BA(!A+B)+B(!A+B) -> B
таблица истинности
A B F0 0 = 00 1 = 11 0 = 01 1 = 1
Для кодирования одного из 512 цветов требуется log(2)512 = 9 бит (2^9=512).
Объем одной страницы с текстом = 3000*2 байт = 6000 байт;
объем одной страницы с изображением = 400*240*9 бит = 400*240*9/8 байт = 108000 байт.
Пусть x - количество страниц с изображениями.
x*108000 + x*18*6000 = 216000
x*216 = 216
x = 1
Количество страниц в буклете = 1+18 = 19
Var m,k,r:integer;
procedure buy(var m,k,r:integer);
begin;
if k<=m then
begin;
m:=m-k;
inc(r);
buy(m,k,r);
end;
end;
begin;
write('Введите сколько у Пети рублей:');
readln(m);
write('Введите стоимость мороженого:');
readln(k);
buy(m,k,r);
write('Всего:',r);
<span>end.</span>
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
Var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
