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

Предыдущий
вопрос Следующий
вопрос

program Task1;
var
num1, num2, sum1, sum2 : integer;
i, digit : integer;
begin
write('Введите первое 4-х значное число: ');
readln(num1);
write('Введите второе 4-х значное число: ');
readln(num2);
sum1 := 0;
sum2 := 0;
for i := 1 to 4 do
begin
digit := num1 mod 10;
num1 := num1 div 10;
if digit mod 2 = 0 then
sum1 := sum1 + digit;
end;
for i := 1 to 4 do
begin
digit := num2 mod 10;
num2 := num2 div 10;
if digit mod 2 = 0 then
sum2 := sum2 + digit;
end;
if sum1 > sum2 then
writeln('Сумма четных цифр первого числа больше: ', sum1)
else if sum1 < sum2 then
writeln('Сумма четных цифр второго числа больше: ', sum2)
else
writeln('Суммы четных цифр равны.');
end.program Task2;
var
num : real;
int_part : integer;
begin
write('Введите действительное число: ');
readln(num);
int_part := trunc(num);
if int_part mod 2 = 0 then
writeln('YES')
else
writeln('NO');
end.