Вопрос Помогите решить задачу в паскале

Y

YooHaRu

Регистрация

27 Сен 2013

Сообщения

77

Репутация

0

Спасибо

0

Монет

0

• 21 Ноя 2017

• #2

x:=random(100)+900; str(x,s) writeln(Copy(s,1,1), , Copy(s,2,1), , Copy(s,3,1));

 

Позитивный голос 0

С

Семён170299

Регистрация

10 Авг 2013

Сообщения

84

Репутация

0

Спасибо

0

Монет

0

• 21 Ноя 2017

• #3

1000

 

Позитивный голос 0

В

вкторф

Регистрация

25 Ноя 2013

Сообщения

87

Репутация

0

Спасибо

0

Монет

0

• 21 Ноя 2017

• #4

3000

 

Позитивный голос 0