Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 08.04.2013, 23:26   #1 (permalink)
Натуличка
Member
 
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Прошу проверить меня

легкая задачка: вспоминаю упущенный материал:Составьте программу, чтобы получить произвольные слова, содержащие не менее 5-ти букв, используя не менее 3-х вырезок из данного слова. (Слово-компьютер)
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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На нашем форуме нашлись похожие обсуждения

Как проверить микросхемы?
Как проверить в чем проблема?
Как проверить БП?
Прошу проверить печатку
Как проверить работоспособность?
Как проверить микросхему?

Старый 09.04.2013, 01:21   #2 (permalink)
interacia
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);
interacia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.