Дана строка символов, среди которых есть двоеточие (:) Определите сколько символов ему предшествует

@Vit9ln · Регистрация: 16.02.2017

Author24 — интернет-сервис помощи студентам

Дана строка символов, среди которых есть двоеточие ( : ) определите, сколько символов ему предшествует.

@ZX Spectrum-128 · 17.02.2017, 07:35

Дана строка символов, среди которых есть двоеточие ":". Определить, сколько символов ему предшествует.

@Cyborg Drone · 17.02.2017, 19:08

Можно проще.

Pascal

var s: string;
    p: integer;
begin
  writeln('Введите строку:');
  readln(s);
  p := pos(':', s);
  if p = 0
    then write('Строка не содержит двоеточий')
    else write('Количество символов, предшествующих двоеточию, равно ', p - 1);
  readln
end.

@bormant · 17.02.2017, 21:25

А поскольку двоеточие по условию есть точно, то

Pascal

var s: String;
begin
  Write('Строка: '); ReadLn(s); WriteLn(Pos(':',s)-1);
end.

@Cyborg Drone · 17.02.2017, 22:48

Не по теме:

Ну, берёт верх моя пагубная привычка пытаться предусмотреть прямое попадание к клавиатуре самого необученного академика...

Дана строка символов, среди которых есть двоеточие (:) Определите сколько символов ему предшествует

Решение

Решение

@Vit9ln 0 / 0 / 0 Регистрация: 16.02.2017 Сообщений: 13
		1
	Дана строка символов, среди которых есть двоеточие (:) Определите сколько символов ему предшествует 17.02.2017, 01:30. Показов 3875. Ответов 4 Метки нет (Все метки) Дана строка символов, среди которых есть двоеточие ( : ) определите, сколько символов ему предшествует. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	17.02.2017, 07:35	2
	Дана строка символов, среди которых есть двоеточие ":". Определить, сколько символов ему предшествует. 0

@Cyborg Drone
	17.02.2017, 22:48 Дана строка символов, среди которых есть двоеточие (:) Определите сколько символов ему предшествует #5
	Не по теме: Ну, берёт верх моя пагубная привычка пытаться предусмотреть прямое попадание к клавиатуре самого необученного академика... 0