Ввести произвольный текст. в данном тексте есть символ - вопрос №5621619 от BOGDANGER 06.06.2020 07:05

Question

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

BOGDANGER · 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.

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