Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Ввести произвольный текст. В данном тексте есть символ ":".Вывести на экран ту часть текста, которая находиться до первого символа ":".Помогите, прошу =)

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:string;
  Writeln(Введите текст); Readln(s);
  for var i:=1 to s.Length do
    if s[i]<>: then Write(s[i]) else break;
end.