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>
На с++
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int n, i, j, k(0),s(0);
cout << "vvedite kol-vo elementv \n";
cin >> n;
int *a = new int[n];
cout << "zapolnite massiv \n";
for (i = 0; i < n; i++)
{
cout << "a[" << i << "]=";
cin >> a[i];
}
for (i = 0; i<n; i++) {
k = 0;
for (j = 0; j<n; j++)
if (a[i] == a[j]) k++;
if (k == 1)
s++;
}
cout << "otvet: " <<s << endl;
return 0;
}
//PascalABC.Net 3.0, сборка 1064
var
a:array[1..7] of integer;
i:integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to 6 do begin
a[i]:=Random(20);
Write(a[i],' ')
end;
Writeln;
for i:=6 downto 3 do a[i+1]:=a[i];
Write('Введите значение вставляемого элемента: '); Read(a[3]);
Write('Результирующий массив: ');
for i:=1 to 7 do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив: 8 2 5 0 6 17
Введите значение вставляемого элемента: -5
Результирующий массив: 8 2 -5 5 0 6 17
А) 40960 бит
б) 1.5 Кбайт = 1536 байт
в) 0.00024 Кбайт = 0.25 байт
г) 1.5 Гбайт = 1572864 Кбайт
д) если 2_ значит 2 умножить, то так:
2(262144) байт = 2(2097152)
Если в задании опечатка и там нет2 то так:
524288 = 4194304 бит
Держи)помоги пожалуйста мне))