Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:=ReadAllText('Pascal.txt');
var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
for var i:=0 to c1.Length-1 do
t:=t.Replace(c1[i],c2[i]);
WriteAllText('Pascal.txt',t);
Writeln('Работа завершена');
end.
<u>Пример</u>
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена
K=16×32×40
i=16
I-?
I=K×i=16×32×40×16=327680 битов
Ответ:
Гиперссылка - это часть гипертекстового документа, ссылающаяся на другой.
Ответ:
не, бред какой-то
звони оператору, выясняй с ним, почему минут нет