Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
A = 25
b = 4
a mod b(= 6) (6 не = 4)
идем по блоку 'нет'
a := а mod b
Ответ: 6
Тема:
1.осень
2.лучшая техника 2016
3.новая техника 2016
4.стоит ли покупать новый айфон 7
5.почему дети так не любят школу?
6.я ♥ информатику
7.что я буду делать на осенних каникулах?
1. a:= 16. b:=12-16/4 = 8 a:=16+8*3 Отсюда следует а = 40
2. a:= -3. a:= -(-3)-(-3) = 6. b:=a+2 = 8 a:= -b+a*b = -8 + (-3)*8 = -8-24= -32
N = int(input('n = '))
n1 = n // 100
n2 = n // 10 % 10
n3 = n % 10
if (n1<n2): n1,n2 = n2,n1
if (n2<n3): n2,n3 = n3,n2
if (n1<n2): n1,n2 = n2,n1
m = n1*100+n2*10+n3
print('m = ',m)
Пример:
<span>n = 149
m = 941</span>