Меню сайта

Задача №15

Дана строка. Определить, есть ли в ней буква —s.


Program string_15-

uses crt-

var t — : string-

i — : integer-

ot : boolean-

begin

clrscr-

writeln(‘введите текст:’)-readln(t)-

for i:=1 to length(t) do

if t[i]=’s’ then ot:=true-

if ot=true then write(‘да’)

else write(‘нет’)-

readln-

end.

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

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