var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.
Судя по данным и диаграмме:
(3+3)/2
3-2=1
3-2=1
Соотвественно:
D2 должно равняться 1, под это условие подходит только:
1) =A1-2
A = 5
b = 10
from math import gcd
for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')