begin
readinteger('Введите число:').ToString.Where(x -> x.ToDigit mod 2 = 0).Println(',');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
begin
readinteger('Введите число:').ToString.Where(x -> x.ToDigit mod 2 = 0).Println(',');
end.