Установить, что сумма двух первых цифр равна сумме двух последних

@boris370 · Регистрация: 11.12.2009

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

Найти все трехзначные числа, удовлетворяющие условию: сумма двух первых цифр равно сумме двух последних. Нужно сделать без массивов, а что-то не получается. На пятой задаче подряд мозги плохо варят..

@marshal · 23.04.2011, 19:39

Цикл с параметром ставьте

Pascal

uses crt;
var i:integer;
begin
clrscr;
for i:=100 to 999 do {переменная будет проверять все трехзначные числа}
if (i mod 10+(i div 10)mod 10)=(i div 100+(i div 10)mod 10) then write(i,' ');{проверка условия, mod - остаток от деления двух чисел, div - целое число от деления}
end.

@Puporev · 23.04.2011, 19:50

сумма двух первых цифр равно сумме двух последних.

Или ошибка с трехзначными(нужно 4х-значные) или все проще, средняя цифра не нужна
if i mod 10=i div 10

@marshal · 23.04.2011, 20:00

Кстати, да - средняя цифра будет прибавляться и туда и туда, значит ее можно убрать и ничего не изменится, простое уравнение:
a-x=b-x
a=b

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
		1
	Установить, что сумма двух первых цифр равна сумме двух последних 23.04.2011, 19:06. Показов 2129. Ответов 3 Метки нет (Все метки) Найти все трехзначные числа, удовлетворяющие условию: сумма двух первых цифр равно сумме двух последних. Нужно сделать без массивов, а что-то не получается. На пятой задаче подряд мозги плохо варят.. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	23.04.2011, 19:50	3
	сумма двух первых цифр равно сумме двух последних. Или ошибка с трехзначными(нужно 4х-значные) или все проще, средняя цифра не нужна if i mod 10=i div 10 0

@marshal Robin Bad на форуме 237 / 237 / 194 Регистрация: 14.12.2010 Сообщений: 513
	23.04.2011, 20:00	4
	Кстати, да - средняя цифра будет прибавляться и туда и туда, значит ее можно убрать и ничего не изменится, простое уравнение: a-x=b-x a=b 1

Опции темы

Установить, что сумма двух первых цифр равна сумме двух последних

Решение