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

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

Задать свой вопрос
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.

Строчки - превосходные вещи =) 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт