срочно ребята завтра экзамен!!!!
Задача решается в паскале
Дан текст, содержащий цифры и буквы. Определить, сколько цифр в тексте.
Ответы
Ответ дал:
0
var s:string; i,k:integer;
begin
writeln('Введите текст:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
Введите текст:
IP-адреса 211.115.61.154 и 211.115.59.137
k = 22
begin
writeln('Введите текст:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
Введите текст:
IP-адреса 211.115.61.154 и 211.115.59.137
k = 22
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад