08.04.2013, 23:26 | #1 (permalink) |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Прошу проверить меня
var S1,S2: string [10]; begin S1:='компьютер'; S2:= copy (S1,4,1)+copy (S1,2,1)+copy (S1,1,1)+copy (S1,8,1)+copy (S1,9,1); writeln (S2); end. |
08.04.2013, 23:26 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На нашем форуме нашлись похожие обсуждения Как проверить микросхемы? Как проверить в чем проблема? Как проверить БП? Прошу проверить печатку Как проверить работоспособность? Как проверить микросхему? |
09.04.2013, 01:21 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Ну проверил получилось «покер»
А так получиться «трюмо» Код:
S2:= copy (S1,7,1)+copy (S1,9,1)+copy (S1,6,1)+copy (S1,3,1)+copy (S1,2,1); |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|