Ввести произвольный текст. в данном тексте есть - вопрос №5621619 от Bakeneko77 15.02.2021 03:30

Question

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

Bakeneko77 · Answer

// 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.

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