Adogamand 26 ноября 2019 в 10:02
Ввести произвольный текст. В данном тексте есть символ ":".Вывести на экран ту часть текста, которая находиться до первого символа ":".Помогите, прошу =)
Ввести произвольный текст. В данном тексте есть символ ":".Вывести на экран ту часть текста, которая находиться до первого символа ":".Помогите, прошу =)
// 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]lt;gt;: then Write(s[i]) else break;
end.
begin
var s:string;
Writeln(Введите текст); Readln(s);
for var i:=1 to s.Length do
if s[i]lt;gt;: then Write(s[i]) else break;
end.
Компьютеры и вычисления
314
0
Для комментирования необходимо зарегистрироваться на сайте