<span>
var
l,a,b:integer;
s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
<span>end.
var
n,i,k:integer;
s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
<span>end.</span></span></span>
Для приведения к СКНФ необходимо построить таблицу истинности, выбрать из нее строки, где функция принимает нулевое значение, а затем записать конъюнкции всех таких строк, где каждым элементом будет дизъюнкция переменных, взятых с инверсией.
<u>Перевожу на простой язык.</u>
Ищем в таблице истинности строки со значением функции, равным 0.
Для каждой такой строки берем переменные (обозначим переменную Р), и там где в колонке для Р записан 0, пишем Р, а где единица, пишем ¬Р.
Все эти Р для одной строки соединяем через ∨ и заключаем в круглые скобки. Так повторяем для каждой нулевой строки. Между скобками пишем ∧
Результаты даны во вложениях.
Если нужно числа 135 и 207 перевести в двоичную систему то держи:
135 - 10000111
207 - 11001111
1-задача
var A:array[1..5] of integer;
s,P,K,i,c :integer;
begin
for I:=1 to 5 do begin
write('ведите число ');
readln(A[i]);
end;
S:=0; c:=0;
P:=1; K:=0;
for I:=1 to 5 do begin
if a[i]>0 then begin S:=S+A[i]; c:=c+1; end;
if (a[i] mod 12)<>0 then P:=P*A[i];
if (a[i]mod 2)=0 then K:=K+1;
end;
writeln('средняя сумма положительных чисел= ',S/c) ;
writeln('произведение чисел не кратных 12= ',P) ;
<span> writeln('количество чётных чисел= ',k) ;
end.
можно сделать и с одним циклом. если надо - отпишись.
задача 2
расчёт с учётом того что у сотрудников разная ЗП
тоже можно сделать с одним циклом.
var A:array[1..5] of integer;
i,zp:integer;
begin
for I:=1 to 5 do begin
write('ведите зарплату сотрудника ',i,': ');
readln(A[i]);
end;
ZP:=0;
for I:=1 to 5 do ZP:=ZP+A[i];
write('общая сумма=',ZP);
<span>end.
</span>задача 3
var A:array[1..20] of integer;
i,P,S,summ:integer;
begin
for I:=1 to 20 do begin
write('ведите число ');
readln(A[i]);
end;
P:=1; S:=0;Summ:=0;
for I:=1 to 20 do begin
if A[i]>8 then begin P:=P*a[i];S:=S+1; end;
if (A[i]mod 15)<>0 then summ:=summ+A[i];
end;
writeln('среднее произведение чисел больше 8= ',P/S);
write('семма чисел не кратных 15= ',summ);
<span>end.
и это тоже можно с одним циклом</span></span>
1 терабайт = 1024 гб. не тебибайт. терабайт = тб
