Var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
<span>end.</span>
Ответ: в) ввпвпнн, потому, что там надо идти вниз, а вниз ненадо
756 бит =94,5 байт 176 килобайт =180224 байт 577 мегабайт =590848 килобайт
1) (X>0) ∨(Y>0) ∨ (Z>0)
2) (X>0)∧(Y≤0)∧(Z≤0) ∨ (Y>0)∧(X≤0)∧(Z≤0) ∨ (Z>0)∧(X≤0)∧(Y≤0)
3) (X>10)∧(Y≤10)∧(Z≤10) ∨ (Y>10)∧(X≤10)∧(Z≤10) ∨
(Z>10)∧(X≤10)∧(Y≤10)
4) (X≠104) ∧ (Y≠104) ∧ (Z≠104)