1) У исполнителя две команды:
 команда 1: прибавить 2
 команда 2: разделить на b
Алгоритм 12111 переводит число 47 в число 13. Найдите b
2) У исполнителя две команды:
 команда 1: прибавить 2
 команда 2: умножить на b
Алгоритм 11121 переводит число 4 в число 202. Найдите b
3) У исполнителя две команды:
 команда 1: прибавить 2
 команда 2: умножить на 3
Напишите алгоритм, который переводит число 3 в число 69
4) У исполнителя две команды:
 команда 1: вычесть 3
 команда 2: умножить на 2
Напишите алгоритм, который переводит число 5 в число 25
5) У исполнителя две команды:
 команда 1: умножить на 2
 команда 2: вычесть 2
Напишите алгоритм, который переводит число 7 в число 44

На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.

2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.

3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже

4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('ответ= ',a/2)
else
write('Было введено нечетное число!');
end.

5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.

6)Его надо делать так же как число и 555 а ответ вообще 4 единицы

1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.