<em>var i:integer;</em>
<em>begin</em>
<em> for i:=1 to 10 do</em>
<em> writeln ('Sellsaccount Sellsaccountov');</em>
<span><em>end.</em></span>
<span>Для получения этих символов нужно зажать клавишу Shift и нажать цифру на которой нужный нам символ! </span>
AAABB AABBA ABBAA BBAAA
AABAB ABAAB ABABA BABAA BAABA BAAAB
N= 5! / (3! *2!)=5*4/2=10
Если мы кодировали в одну сторону, следовательно декодируем также, но только в обратную сторону.
а)друга ищи, а найдёшь - береги;
б)старый друг лучше новых двух.
Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.<span>
</span>