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

DcPer11 DcPer11    2   17.07.2019 13:30    7

Ответы
pochta147369 pochta147369  03.10.2020 06:29
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика