В заданной последовательности символов определить количество символов «*», стоящих после двоеточия

@Tamin · Регистрация: 02.10.2016

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

Дана последовательность символов, заканчивающаяся точкой. Известно, что среди этих символов есть двоеточие. Определить количество символов «*», стоящих после двоеточия.

Нужно решить через (символьный тип) Char.
Совсем не понимаю, кто-нибудь спасайте!

Kodzaev · 18.10.2016, 03:02

Pascal

var
  c: char;
  k: integer;
  f: boolean;
  
begin
  f := false;
  k := 0;
  repeat
    ReadLn(c);
    if c = ':' then f := true;
    if f and (c = '*') then k := k + 1;
  until c = '.';
  WriteLn('Количество символов ''*'' после двоеточия = ', k);
  ReadLn
end.

@Sergio Leone · 18.10.2016, 08:19

Сообщение от Kodzaev

ReadLn(c);

думаю, что лучше написать

Pascal

Read(c);

тогда символы можно записать в строку, не нажимая после каждого символа Enter (ReadLn требует Enter в конце ввода).
Хотя, конечно, это поведение может зависеть от конкретного Паскаля.

@Tamin · 20.10.2016, 12:44 **[ТС]**

Спасибо огромное!!!

@Tamin 0 / 0 / 0 Регистрация: 02.10.2016 Сообщений: 7
		1
	В заданной последовательности символов определить количество символов «», стоящих после двоеточия 18.10.2016, 01:15. Показов* 3908. Ответов 3 Метки char (Все метки) Дана последовательность символов, заканчивающаяся точкой. Известно, что среди этих символов есть двоеточие. Определить количество символов «*», стоящих после двоеточия. Нужно решить через (символьный тип) Char. Совсем не понимаю, кто-нибудь спасайте! 0

@Tamin 0 / 0 / 0 Регистрация: 02.10.2016 Сообщений: 7
	20.10.2016, 12:44 [ТС]	4
	Спасибо огромное!!! 0

В заданной последовательности символов определить количество символов «*», стоящих после двоеточия

Решение