Код
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]);
Помогите пожалуйста
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| masha |
Сообщение
#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]); Помогите пожалуйста |
masha паскаль фри,строки 5.12.2011 23:19
sheka Ни задания, ни текста не видно. Отредактируй. 6.12.2011 4:56
TarasBer Форматирование жжот
КГ/АМ 6.12.2011 13:28
Krjuger Ну если востановить то,что в заголовке и то, что н… 7.12.2011 4:31![]() ![]() |
|
Текстовая версия | 18.12.2025 22:56 |