Напишите программу для Pascal
1) Пользователь вводит число, количество цифр в нем неизвестно, но последняя цифра = 0. Посчитать количество четных положительных цифр в этом числе.
2)Пользователь вводит число, посчитать количество цифр в числе и вывести минимальную цифру.

Program Ex1;

var
  s: string;
  c: char;
  i, n, m, min: integer;

begin
  s := ;
  m := 0;
  n := 0;
  min := 10;
  writeln(Введите число);
  repeat
    read(c);
    s := s + c;
    i := StrToInt(c);
    if i mod 2 = 0 then
      if c <> 0 then m := m + 1;
    // для задания 2)
    n := n + 1;
    if i < min then min := i
  until c = 0;
  writeln(Введено число , s, , в нем четных цифр- , m)
end.

program Ex2;

var
  s: string;
  i, d, n, min: integer;

begin
  min := 10;
  writeln(Введите число);
  readln(s);
  n := length(s);
  for i := 1 to length(s) do
  begin
    d := StrToInt(s[i]);
    if d < min then min := d
  end;
  writeln(Введено число , s, , в нем цифр- , n, , минимальная- , min)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.