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

@twista · Регистрация: 31.05.2010

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

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

@кот Бегемот · 10.04.2011, 23:52

Сообщение от twista

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

PureBasic

FOR i = 1 TO 2
INPUT "vvedite 3-znachnoe chislo ", a
GOSUB obmen
s = s + a
NEXT
PRINT  s
END
obmen:
b = a MOD 10
c = a \ 100
d = a \ 10 MOD 10
a = b * 100 + d * 10 + c
RETURN

@twista · 11.04.2011, 11:22 **[ТС]**

Спасибо огромное

@twista 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 79
		1
	Найти сумму новых чисел, чтобы поменялись крайние цифры двух исходных 10.04.2011, 17:54. Показов 1115. Ответов 2 Метки нет (Все метки) Два трехзначных числа,мне нужно найти сумму новых,чтобы поменялись крайние цифры. всё это решить нужно с подпрограммой,чтобы был GOSUB/ 0

@twista 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 79
	11.04.2011, 11:22 [ТС]	3
	Спасибо огромное 0

Опции темы

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

Решение