Даны натуральные числа m и n.Получить число состоящее из m последних чётных цифр числа n. Написать программу на Паскале только на Паскале.
Answers & Comments
HRAshton
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.
Answers & Comments
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.
Строки - хорошие вещи =)