Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ паскаль фри,строки

Автор: masha 5.12.2011 23:19

Код
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 6.12.2011 4:56

Ни задания, ни текста не видно. Отредактируй.

Автор: TarasBer 6.12.2011 13:28

Форматирование жжот
КГ/АМ

Автор: Krjuger 7.12.2011 4:31

Ну если востановить то,что в заголовке и то, что написано,то Надо N строк и надо напичатать все четные символы)))
Конешно же код делает совершенно не то.)))Он даже не откомпилируеться,так как в конце нету end. В общем ждем человека,чтобы понять,что именно он хочет.