Впаскале с полным решением в трехзначном числе х зачеркнули первую цифру. когда полученное число умножили на 10, а произведение сложили с первой цифрой числа х, то получилось число п. по заданному п найти число х (значение п вводится с клавиатуры, 1 < п < 999)

Var  x,i,n:integer;beginreadln(n);  x := n mod 10;  x := x * 100;  x := x + (n div 10);  writeln(x);end.

#include <iostream>

#include <vector>

using namespace std;

int data[20][20], x, y, minValue = -1;  

void calc(int px, int py, int value){  

  value += data[px][py];

  int temp = data[px][py];

 if(px == x - 1 && py == y - 1) {

      if(value < minValue || minValue == -1)

          minValue = value;

      return;

 }

 data[px][py] = -1;

  if(px + 1 < x && data[px + 1][py] != -1) calc(px + 1, py, value);

  if(py + 1 < y && data[px][py + 1] != -1) calc(px, py + 1, value);

data[px][py] = temp;

}

int main(){

  cin >> x >> y;

  for (int i = 0; i < x; ++i)

      for (int j = 0; j < y; ++j)

         cin >> data[i][j];

calc(0, 0, 0);

 cout << minValue;  

 return 0;

}

Объяснение:

ответ

Если пишешь на Паскале то-

1 Program Summ;   // Название программы

2 Var i, summ: integer   // Объявляем переменные: i для числа, summ для суммы. Обе переменные — целочисленные (integer)

3 Begin   // Начало программы

4  Summ:=0;   // Обнуляем сумму

5   Writeln('Write n');   // Просим юзера ввести n

6  For i:=1 to n do   // Цикл для i от одного до n

7   Begin   // Начало цикла

8      If i mod = 2 then   // Условие для числа — число должно быть четным

9      Begin   // Начало цикла

     10   summ:=summ+i;   // Прибавляем к сумме число (если выполняется условие, см. выше)

 11    End;   // Конец цикла для If

12  End;   // Конец цикла для For

13  Writeln(summ);   // Выводим сумму

  14 Readln;   // Ждем нажатия Enter (чтобы программа не закрывалась сразу после вывода суммы, иначе юзер не успеет прочитать ее)

15 End.   // Конец программы

Объяснение: