Вот решение на паскале.
var b,k,i,l:integer;a:array[1..100] of string;begin
a[1]:='1';
a[2]:='2';
a[3]:='3';
a[4]:='2';
a[5]:='3';
for i:=1 to 5 do
begin
if a[i]='1' then a[i]:='33';
if a[i]='2' then a[i]:='1';
if a[i]='3' then a[i]:='2';
end;
for i:=1 to 5 do
write(a[i]);
<span>end.
Ответ: </span>331212
111101(2) = 61(10)
1D(16) = 29(10)
27(8) = 23(10)
наибольшее 111101(2)
Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
Begin
for var i=1 to n do
Writeln(i);
end.