IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

> паскаль фри,строки, заданы м строк символов которые вводятся с клавиатуры напечатать все ц
masha
сообщение 5.12.2011 19:19
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Женский

Репутация: -  0  +


Код
Program My;  var  s:string;  i,n,m:integer;  begin  write('vvedite stroky: ');  readln(s);  n:=length(s);  for i:=1 to n do  if(n mod 2)=1 then write(s[i][(n div 2)+1]);


Помогите пожалуйста
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 29.07.2025 15:43
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"