var a,n: integer;
procedure del (a,n:integer);
var b:integer;
begin
b := 0;
while a > 0 do
begin
if a mod 10 <> n then b := b * 10 + a mod 10;
a := a div 10
end;
while b > 0 do
begin
a:= a * 10 + b mod 10;
b := b div 10
end;
writeln(a)
end;
begin
readln(a);
readln(n);
del(a,n)
end.
Я бы тебе посоветовал:
1.Новый антивирусник (Dr.Web)
2.Сделать через доктор Web полную проверку (она длится целый день)
<span>3.Появится список вирусов, и он их лечит и удаляет! </span>
Var
m,n: array [1..15] of integer;
a,i,max: integer;
begin
readln(a);
writeln('Исходный массив:');
for i:= 1 to 15 do
begin
m[i]:= random(20);
n[i]:=m[i]*a;
if (n[i]>max) and (i mod 2=1) then max:=n[i];
write (m[i],' ');
end;
writeln;
writeln('Новый массив:');
for i:= 1 to 15 do write (n[i],' ');
writeln;
writeln('Максимальный нечетный: ',max);
<span>end.</span>
Ответ в файле::::::::::::::::::::::::::::::::::::::::::::
1.
integer: b, d;
real : e,h;
bool: c,j;
char: A, f, j , i;
2.
256
3.
a = 32
4.
a = 40
5.
b = 48