Само условие задачи такое :Дано целое четырехзначное число. Определить, какая сумма больше - первой пары цифр числа или второй пары.
program algoritm;
var
x: integer;
begin
write('Введите четырехзначное положительное число: ');
readln(x);
if (x > 999) and (x <= 9999) then
begin
if (x div 1000 mod 10 + x div 100 mod 10) > (x div 10 mod 10 + x mod 10) then
writeln('Сумма первой и второй цифры больше')
else
if (x div 1000 mod 10 + x div 100 mod 10) = (x div 10 mod 10 + x mod 10) then
write('Сумма первой и второй пары цифр равны')
else
write('Сумма третьей и четвертой цифры больше')
end
else
writeln('Было введено не четырехзначное число.');
end.
Продвижение своими сайтами как стратегия роста и независимости