Ввести произвольный текст. в данном тексте есть - вопрос №5620942 от опалссио 19.02.2021 18:57

Question

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

опалссио · 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.

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