Question

Даны натуральные числа m и n.Получить число состоящее из m последних чётных цифр числа n. Написать программу на Паскале только на Паскале.

Answer 1

Var m, n, i: integer;
    a, b: string;
begin
     readln(m);
     readln(n);
     a := inttostr(n);
     for i := 1 to length(a) do
         if (strtoint(a[i]) mod 2 = 0) then b := b + a[i];
     for i := 0 to m - 1 do write(b[length(b) - i]);
end.

Строки - хорошие вещи =) 

Answer 2

Конечно, вот программа на языке Паскаль, которая решает задачу:

pascalCopy code
program GetLastEvenDigits;

var
  m, n, count, lastDigit, evenDigit: integer;
  result: string;

begin
  // Ввод чисел m и n
  write('Введите число m: ');
  readln(m);
  write('Введите число n: ');
  readln(n);
  
  // Проверка на чётность и формирование числа из последних m чётных цифр
  count := 0;
  result := '';
  
  while (n > 0) and (count < m) do
  begin
    lastDigit := n mod 10;
    
    if lastDigit mod 2 = 0 then
    begin
      evenDigit := lastDigit;
      result := chr(evenDigit + 48) + result;
      count := count + 1;
    end;
    
    n := n div 10;
  end;
  
  // Вывод результата
  writeln('Число из ', m, ' последних чётных цифр числа ', n, ': ', result);
  
  readln;
end.

Программа запрашивает у пользователя два числа m и n, а затем формирует число, состоящее из m последних чётных цифр числа n. Результат выводится на экран.