Само условие задачи такое :Дано целое четырехзначное число. Определить, какая сумма больше - первой пары цифр числа или второй пары.
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.
Оборудование для ресторана: новинки профессиональной кухонной техники
Частный дом престарелых в Киеве: комфорт, забота и профессиональный уход
Написал обычное тестовое приложение для выбораpng файла из папок на компьютере
Есть следующая задача: изначально мы не знаем размер массива, который нам надо обработать, необходимо написать функцию, которая бы работала...