Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу,которая проверяет ,входит ли буква "w" в текст (ответ должен быть "да" или "нет")
ОЧЕНЬ СРОЧНО!!ПОМОГИТЕ ПОЖАЛУЙСТА)

Ответ оставил Гость

Var 
s: string; 
i, n: integer;
begin 
write(Введите текст ); 
Readln(s); 
for i := 1 to length(s) do    i
f (s[i] = w) or (s[i] = W) then begin     
write(Да);     
n := 1;     
Break;   
end; 
if n <> 1 then write(Нет);
end.