Найти минимальную цифру натурального числаформат ввода: на вход подается натуральное, не превосходящее 30000.формат вывода: целое число.пример входных данных: 651пример выходных данных: 1пояснение: отсутствует.сделайте на паскале плз​

var

x, sum: integer;

begin

read(x);

while(x gt; 0) do

begin

if(x mod 10 lt; = 5) then sum : = sum + x mod 10;

x : = x div 10;

end;

write(sum);

end.

#include < iostream>

using std: : cin;

using std: : cout;

using std: : endl;

void result(double n, double *otputm, double *otputh, double m = 2, double h = 12, double p = 50, double b = 2)

{

double one = m / 100 * 1;

p = one * p;

m = m + (p * n);

 

h = h + (b * n);

*otputm = m;

*otputh = h;

}

int main() {

 

setlocale(lc_all, "russian"); //

double m;     //население (тысяч. чел)

double h;   //длина дорог (км)

double p;   //процент увеличения населения (%)

double b;   //увеличение дорог   (км)

double n;   //кол-во лет

double otputm = 0; //ответ людей

double otputh = 0; //ответ дорог

int input;

 

cout < < "вы хотите ввести m, h, p, b? \nвведите 1 - если хотите, 2 - если не хотите: ";

cin > > input;

 

if(input == 2)

{

  cout < <   "\nвведите n (кол-во лет) = ";

  cin > > n;

  result(n, & otputm, & otputh);

 

  cout < < "\nчерез " < < n < < " лет: ";

  cout < < "\nкол-во людей = " < <   otputm < < "\nдлина дорог = " < < otputh;

}else if(input == 1)

{

  cout < <   "\nвведите n (кол-во лет) = ";

  cin > > n;

  cout < < "введите m (население [тыс. чел.]) = ";

  cin > > m;

  cout < < "введите h (длина дорог [км]) = ";

  cin > > h;

  cout < < "введите p (процент увеличения населения [%]) = ";

  cin > > p;

  cout < < "введите b (увеличение дорог [км]) = ";

  cin > > b;

 

  result(n, & otputm, & otputh, m, h, p, b);

  cout < < "\nчерез " < < n < < " лет: ";

  cout < < "\nкол-во людей = " < <   otputm < < "\nдлина дорог = " < < otputh;

}else

{

  cout < <   "\nerror! ";

}

 

return 0;

}

Pascalabc.net 3.4.2, сборка 1884 от 24.11.2018 внимание! если программа не работает, обновите версию! 1)

begin

  var n : = 14;

  var a : = readarrreal(n);

  var p : = a[n - 2];

  var s : = a.indexesof(t -> t = p);

  s.select(i -> i + 1).println.count.println // индексы,потом кол-во

end.

пример 1 4.5 4 -0.3 -0.5 4.2 -1.1 4.4 -3.1 -3.4 4.2 -1.2 -1.1 1.1 7 13 2 2)

begin

  var n : = 16;

  var a : = arrrandom(n, 0, 90);

  a.println;

  var max : = -1;

  for var i : = 0 to n div 2 - 1 do

  begin

    var t : = a[i] - a[n - i - 1];

    if max < t then max : = t

  end;

  max.println

end.

пример 79 73 62 60 29 3 71 21 64 9 53 32 15 24 16 28 62 3)

begin

  var a : = readarrinteger(12);

  var s : = a.where(t -> t.iseven);

  var k : = s.count;

  if k > 1 then ((s.aggregate(1.0, (p, q)-> p * q)) ** (1 /

  else

  if k = 0 then println(0)

  else s.first.println

end.

пример 63 96 84 43 19 56 41 36 8 46 1 57 42.6070511534269