Клавиатура, мышь, сканер, микрофон, джойстик.
<span>///#1program Number1;
var b, xi: Integer;
x, y: Real;
begin
Writeln('Enter number B:');
Read(b);
if (b < 10) then Writeln(2 * b)
else if (b >= 10) then
begin
for xi := -3 to 1 do
begin
x := x + 0.1;
y := sqr(x) - x + (sin(1 / b + x) / cos(1 / b + x));
Writeln('X= ', x:0:1, ' Y= ', y:0:1);
end;
end;
end.
//////#2
var n,j,s:Integer; ser:Real;
X:Array[1..10000] of Integer;
Begin
writeln('Enter N: ');
Read(n);
for j:=1 to n do Read(X[j]);
for j:=1 to n do if (X[j]<-2) or (X[j]>2) then s:=s+X[j];
av:=s/n;
if (av>2) then
begin
X[1]:=1;
X[n]:=1;
end
else
begin
X[1]:=0;
X[n]:=0;
end;
for j:=1 to n do Write(X[j],' ');
end.
/////#3
var n,s,p:Integer;
A:Array[1..10000] of Integer;
Begin
Write('Enter N: ');
Read(n);
for p:=1 to n do Read(A[p]);
for p:=1 to n do
if (A[p]>0) and (A[p] mod 3 <> 0) then s:=s+A[p];
for p:=n div 2 to n do A[p]:=s;
for p:=1 to n do Writeln('Otvet: ',A[p]);
end.</span>
Var s,s0:string;
begin
write('введите строку: ');
readln(s);
write('введите подстроку: ');
readln(s0);
if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.
Тест №1
введите строку: qwerty
введите подстроку: wer
Да
Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет
Такие задания очень легко решаются, если заменить логические знаки на арифметические. Сейчас я напишу логические знаки и их аналогичные арифметические.
∧ или & - * (умножение)
∨ - + (сложение)
¬ - отрицание (1 превращается в 0, а 0 в 1)
Запишу в качестве примера последнюю таблицу первую строчку
при A=0 B=0 C=0
A&B меняем на A*B
получается 0*0 ответ 0
A&B∨C меняем на A*B+C
получается 0*0+0 ответ 0
¬(A&B∨C) меняем на ¬(A*B+C)
получается ¬(0*0+0) сначала решаем в скобках, будет ¬(0) или ¬0 ответ: 1
Думаю всё понятно, ничего сложного. В приложении прикрепляю 2 последние таблицы.
НАВЕРНО ДА?! Я ТОЧНО НЕ ЗНАЮ