Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Д

@GGhost · Регистрация: 17.10.2013

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

Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Д.

@Puporev · 21.02.2014, 10:03

Delphi

kt:=0;
kp:=0;
kd:=0;
for i:=1 to 20 do
 begin
  readln(c);
  if c='.' then inc(kt)
  else if c=' ' then inc(kp)
  else if c='D' then inc(kd)
 end;

@GGhost · 21.02.2014, 10:25 **[ТС]**

не очень понял как должна работать программа, вар поставил
а как выводить ответ?
можно разъяснить пожалуйста..

@montukxd · 21.02.2014, 10:29

Delphi

1
2
3

Label1.caption:=inttostr(kt); // выводит кол-во точек
Label2.caption:=inttostr(kp); // выводит кол-во пробелов
Label3.caption:=inttostr(kd); // выводит кол-во букв D

@GGhost 2 / 2 / 0 Регистрация: 17.10.2013 Сообщений: 42
		1
	Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Д 21.02.2014, 09:53. Показов 2504. Ответов 3 Метки нет (Все метки) Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Д. 0

@GGhost 2 / 2 / 0 Регистрация: 17.10.2013 Сообщений: 42
	21.02.2014, 10:25 [ТС]	3
	не очень понял как должна работать программа, вар поставил а как выводить ответ? можно разъяснить пожалуйста.. 0

	21.02.2014, 10:29

Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Д

Решение