Переписать программу с Basic на Pascal

@Милавира · Регистрация: 07.01.2013

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

Доброго времени суток!
Перепишите, пожалуйста, программу на Паскаль... Я не могу сама, просто потому, что не умею, не знаю строковых операторов в Паскале...

PureBasic

CLS
INPUT "k = "; K
S$ = ""
N = 1
i = 1
WHILE i <= 255
P$ = STR$(N)
S$ = S$ + RIGHT$(P$, LEN(P$) - 1)
N = N + 1
i = i + LEN(STR$(N)) - 1
WEND
PRINT S$
PRINT LEN(S$)
PRINT MID$(S$, K, 1)

@APALoff · 14.01.2014, 09:58

Сообщение от Милавира

Я не могу сама, просто потому, что не умею, не знаю строковых операторов в Паскале...

Ну так и не изучайте Паскаль - бросайте это "гиблое" дело!

@Милавира · 14.01.2014, 17:03 **[ТС]**

Ахаха) Забавно) Преподавателю так сказать

Да не, на самом деле я уже написала и сдала работу)

@ildwine · 14.01.2014, 17:16

Милавира, поделитесь решением в этой теме, может быть кому-то пригодится

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	14.01.2014, 09:58	2
	Сообщение от Милавира Я не могу сама, просто потому, что не умею, не знаю строковых операторов в Паскале... Ну так и не изучайте Паскаль - бросайте это "гиблое" дело! 0

@Милавира 2 / 2 / 0 Регистрация: 07.01.2013 Сообщений: 22
	14.01.2014, 17:03 [ТС]	3
	Ахаха) Забавно) Преподавателю так сказать Да не, на самом деле я уже написала и сдала работу) 2

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	14.01.2014, 17:16	4
	Милавира, поделитесь решением в этой теме, может быть кому-то пригодится 0

Опции темы