Составьте программу,которая проверяет ,входит ли буква "w" в текст (ответ должен быть...

Question

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

Answer 1

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.

Comments

спасибо большое))

---

) (буду рад если нажмёшь кнопку спасибо под ответом)