Решение.
uses crt;
var t : string;
 i : integer;
 ot : boolean;
b...'/>






































	
	

	
	
	
	
	
	
	
	
	
	

	



Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Принадлежит ли буква слову?

Задача. Составить на Паскале программу проверки есть ли в тексте буква 's'.
Решение.
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.
 Похожие публикации: Pascal

Войти и комментировать [ Вход | Регистрация ]

Онлайн всего: 1
Гостей: 1
Пользователей: 0