Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу ASCIIZ
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Yakup Yakup вне форума
Member
 
Сообщений: 16
Сказал(а) спасибо: 4
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 16.11.2017
Exclamation ASCIIZ - 04.12.2017, 16:44

Pascal Код:
Var s,s1,s2:string;
    i:byte;
    b:boolean;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      b:=true;
      s2:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      For i:=1 to Length(s2) do
       if Pos(s2[i],s1)=0 then b:=false;
      if b then writeln(s2);
    End;
    readln;
End.
нужно записать через строки с нулевым окончанием(ASCIIZ)
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов