Меню сайта

Задача №17

Ввести текст телеграммы и стоимость одного слова. Опред. стоимость телеграммы. При вводе текста запятые обозначаются словом ЗПТ, точки — словом Т.


Program string_17-

uses crt-

var a : string-

i,s,c : longint-

begin

clrscr-

write(‘Введите текст ‘)-readln(a)-

write(‘Стоимость одного слова ‘)-readln(c)-

s:=0-

repeat-

for i:=1 to length(a)do

if (a[i]=’ ‘) or (a[i]+a[i+1]+a[i+2]=’ЗПТ’)

then s:=s+c-

until a[i]=’Т’-

s:=s+c-

write(‘стоимость телеграммы: ‘,s)-

readln-

end.

Категория: Строки | Дата: 17.01.13

Меню раздела
Блок