Задачи на Паскале :
1.Даны 2 целых 4-х значных числа.Вывести значение того числа,у которого суммы четных цифр больше.
2.Является ли целая часть данного ДЕЙСТВИТЕЛЬНОГО числа четной?
Если да - YES
Если нет - NO
ЗАРАНЕЕ СПАСИБО !

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!function Sed(n:integer):integer;// Возвращает сумму четных цифр в числеbegin  (n,Result):=(Abs(n),0);  while n>0 do begin    var d:=n mod 10;    if d.IsEven then Result+=d;    n:=n div 10    endend;begin  var (a,b):=ReadInteger2('Введите два целых числа через пробел:');  var (s1,s2):=(Sed(a),Sed(b));  if s1>s2 then Writeln(a) else Writeln(b)end.ПримерВведите два целых числа через пробел: 6213 58415841begin  var r:=Abs(ReadReal('Введите действительное число:'));  if Trunc(r).IsEven then Writeln('YES') else Writeln('NO')end.ПримерыВведите действительное число: -435.234NOВведите действительное число: 20608.6536YES