Прошу проверить меня

Натуличка · 08.04.2013, 23:26

легкая задачка: вспоминаю упущенный материал:Составьте программу, чтобы получить произвольные слова, содержащие не менее 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.

interacia · 09.04.2013, 01:21

Ну проверил получилось «покер»

А так получиться «трюмо»

Код:

 S2:= copy (S1,7,1)+copy (S1,9,1)+copy (S1,6,1)+copy (S1,3,1)+copy (S1,2,1);

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.

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);

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

08.04.2013, 23:26
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На нашем форуме нашлись похожие обсуждения Как проверить микросхемы? Как проверить в чем проблема? Как проверить БП? Прошу проверить печатку Как проверить работоспособность? Как проверить микросхему?

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