Информатика, опубликовано 2018-08-22 23:50:19 by Гость
Дан текст, содержащий цифры и буквы. Определить, сколько букв в тексте. в паскаль
Ответ оставил Гость
Var s:string; i,k:integer;
begin
writeln(Введите текст:);
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in [A..Z,a..z,А..Я,а..я] then k:=k+1;
writeln(k = ,k);
end.
Пример:
Введите текст:
IP-адреса 211.115.61.154 и 211.115.59.137
k = 9
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на