даны два слова. для каждой буквы первого слова определить, входит ли она во второе слово. повторяющиеся буквы первого слова не рассматривать. например, если заданные слова «процессор» и информация», то для букв первого из них ответом должно быть: «нет да да да нет нет». это в паскале))

vars,c,k: string; i: integer; beginwrite ('введите первое слово: '); readln(s); write ('введите второе слово: '); readln(c); while length(s)< > 0 dobegin  k: =s[1];   delete(s,1,1);   while pos(k,s)< > 0 do  delete(s,pos(k,s),1);   if pos(k,c)=0 then write('нет ')                              else write('да '); end; end.

Var a: array of integer; i,n,s: integer; begin   write('число элементов : ');   readln(n);   setlength(a,n);   for i: =0 to n-1 do begin       a[i]: =random(121)-60;       if a[i]> 0 then s: =s+a[i];       write(a[i]: 4);   end;   writeln;   writeln('сумма больших 0 : ',s); end. тестовое решение: число элементов : 10   -49 -36  -2  -8 -46  36 -56  15  57  56 сумма больших 0 : 164

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 function f(x: real): =3+x*(4+x*(5+x*6)); begin   var a: =-1.0;   var b: =0.0;   var eps: =1e-6;   var fa: =f(a);   var x,fx: real;   if abs(fa)< =eps then writeln('x=',a,',y=',fa)   else begin       var fb: =f(b);       if abs(fb)< =eps then writeln('x=',b,',y=',fb)       else           if fa*fb> 0 then writeln('на указанном интервале корней нет')           else               repeat                   x: =(a + b)/2;                   fx: =f(x);                   if abs(fx)< =eps then writeln('x=', x, ', y=', fx)                   else                       if fa*fx> 0 then a: =x else b: =x;               until abs(fx)< =eps   end end. результат выполнения программы: x=-0.790308952331543, y=-6.74849237825015e-07