Такие задачи проще решать с конца и менять знаки операций на противоположные:
44 /4 команда 2
11+1 команда 1
12/4 команда 2
3+1 команда 1
4/4 команда 2
1
Собираем получившиеся команды с конца: 21212
Ответ: 21212
Var
x, y, z, k: integer;
Begin
writeln('Введите двухзначное число');
read(x);
y:=x div 10;
z:=x mod 10 ;
k:=y+z;
writeln('Сумма цифр: ',k);
End.
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.
Что такое алгоритм?
Подскажите!!!!!
16 (одиночных) + 7 (из 4 триугольников) + 3 (из 9 триугольников) + 1 (большой) = 27