Найти все четырёхзначные десятичные числа, у которых сумма первых двух цифр в два раза больше суммы правых двух цифр

@студенточкаБИ · Регистрация: 26.05.2013

Author24 — интернет-сервис помощи студентам

Найти все четырёхзначные десятичные числа, у которых сумма первых двух цифр в два раза больше суммы правых двух цифр. Результат вывести в файл. (Молю о помощи!)

@Mikl___ · 26.05.2013, 12:56

студенточкаБИ,
помощь -- это когда помогают довести до ума, НАЧАТОЕ ТОБОЙ, а в данном случае, ничем не подкрепленное, кроме женского ника, желание ЗАСТАВИТЬ других ПИСАТЬ ЗА ТЕБЯ программу

@студенточкаБИ · 26.05.2013, 14:43 **[ТС]**

Это не желание заставить, а просьба откликнуться тех, кого это действительно не затруднит и, возможно, заинтересует (так сказать, разминка для ума). Смогла бы написать сама, сюда бы в отчаяньи не обратилась бы.
Кроме корявенького кода на на Pascal, к сожалению, ничего не имею.
вот моё неопытное "женское умотворение" на упомянутом выше языке программирования:

Pascal

VAR  a, b, c, d, i :integer;
BEGIN
For i:=1000 to 9999 do Begin
    a:= i div 1000;
    b:= (i div 100) mod 10;
    c:= (i div 10) mod 10;
    d:=i mod 10;
         IF ((a+b)=2*(c+d))
         THEN Write('  ',i);
 
                               end;
END.

@студенточкаБИ 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 3
		1
	Найти все четырёхзначные десятичные числа, у которых сумма первых двух цифр в два раза больше суммы правых двух цифр 26.05.2013, 11:47. Показов 1520. Ответов 2 Метки нет (Все метки) Найти все четырёхзначные десятичные числа, у которых сумма первых двух цифр в два раза больше суммы правых двух цифр. Результат вывести в файл. (Молю о помощи!) 0

@Mikl___ Ушел с форума 16279 / 7604 / 1065 Регистрация: 11.11.2010 Сообщений: 13,617
	26.05.2013, 12:56	2
	студенточкаБИ, помощь -- это когда помогают довести до ума, НАЧАТОЕ ТОБОЙ, а в данном случае, ничем не подкрепленное, кроме женского ника, желание ЗАСТАВИТЬ других ПИСАТЬ ЗА ТЕБЯ программу 0

	26.05.2013, 14:43