Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Внимание!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]); Помогите пожалуйста |
   |
 
|
| sheka |
Сообщение
#2
|
 Я.  Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
Ни задания, ни текста не видно. Отредактируй.
|
|
|
|
| TarasBer |
Сообщение
#3
|
 Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Форматирование жжот
КГ/АМ -------------------- |
|
|
|
| Krjuger |
Сообщение
#4
|
|
Профи Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
Ну если востановить то,что в заголовке и то, что написано,то Надо N строк и надо напичатать все четные символы)))
Конешно же код делает совершенно не то.)))Он даже не откомпилируеться,так как в конце нету end. В общем ждем человека,чтобы понять,что именно он хочет. |
|
|
|
|
|
Текстовая версия | 15.12.2025 11:42 |
