Дано число переставить первую и последнюю цифру и напечатать .Например (45;54)(3858;8853)

@QWERT2404 · Регистрация: 28.11.2017

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

@Ли2 · 16.12.2017, 14:13

QBasic/QuickBASIC

CLS
DIM N AS LONG
DIM S AS STRING
DIM s1 AS STRING
DIM s2 AS STRING
 
INPUT "N = "; N
S = LTRIM$(STR$(N))
s1 = LEFT$(S, 1)
s2 = RIGHT$(S, 1)
MID$(S, 1, 1) = s2
MID$(S, LEN(S)) = s1
PRINT N; VAL(S)

@QWERT2404 0 / 0 / 0 Регистрация: 28.11.2017 Сообщений: 4
		1
	Дано число переставить первую и последнюю цифру и напечатать .Например (45;54)(3858;8853) 05.12.2017, 21:01. Показов 2033. Ответов 1 Метки нет (Все метки) Дано число переставить первую и последнюю цифру и напечатать .Например (45;54)(3858;8853) 0

	16.12.2017, 14:13

Дано число переставить первую и последнюю цифру и напечатать .Например (45;54)(3858;8853)

Решение