Question

Помогите с информатикой
Паскаль

Вводится шестизначное натуральное число. Проверить, является ли оно счастливым (сумма первых трёх цифр равна сумме последних трёх цифр) и, если не является, вывести ближайшее счастливое число.

Answer 1

Ответ:

var a,b,c:integer;

begin

read(a);

b:=(a div 100000)+(a mod 100000 div 10000)+(a mod 10000 div 1000);

c:=(a mod 1000 div 100)+(a mod 100 div 10)+(a mod 10);

if b=c then writeln('счастливое') else writeln('несчастное');

end.

Объяснение:

немного не до конца. надо еще вычислить ближайшее счастливое. пока идей нет