Question

100 БАЛЛОВ ЗАДАЧА !!!!!!!!!!!!!!!!!!СРОЧНО ИЗ ВСЕ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ ВЫВЕСТИ ТОЛЬКО ТЕ У КОТОРЫХ СУММА ПЕРВЫХ ДВУХ ЦИФР РАВНА СУММЕ ПОСЛЕДНИХ ДВУХ ЦИФР

Answer 1

Ответ:

var

Count, i: Integer;

Summa: LongInt;

begin

Summa:=0;

writeln('Четырехзначные числа по условию: ');

for i:=1000 to 9999 do

if ((i div 100) mod 10 + (i div 1000) mod 10) =

((i mod 10) + (i div 10) mod 10) then

begin

write(i, ' ');

Summa:=Summa + i;

Count:=Count + 1;

end;

writeln;

writeln('Сумма всех чисел: ', Summa);

writeln('Кол-во: ', Count);

end.

Answer 2

Для решения этой задачи, вы можете написать программу на Python, которая будет перебирать все четырёхзначные числа и проверять условие: сумма первых двух цифр равна сумме последних двух цифр. Вот пример такой программы:

pythonCopy code
for number in range(1000, 10000):
    thousands = number // 1000
    hundreds = (number // 100) % 10
    tens = (number // 10) % 10
    ones = number % 10
    
    if thousands + hundreds == tens + ones:
        print(number)

Этот код перебирает все четырёхзначные числа, разбивает их на цифры (тысячи, сотни, десятки и единицы) и проверяет условие. Все числа, для которых сумма первых двух цифр равна сумме последних двух цифр, будут выведены на экран.