![Ульян](https://sproshu.net/uploads/ava/1/ava4279.jpg)
Ульян
5 год назад
Дана последовательность символов, оканчивающаяся точкой. Выяснить, имеется ли в ней хотя бы одна цифра...
ОТВЕТЫ
![Zhyuvivpa](https://sproshu.net/uploads/ava/3/ava8784.jpg)
Zhyuvivpa
Jun 30, 2019
Var ch: char;
begin
repeat
read(ch);
if ch in [0..9] then
begin
writeln(есть цифра ,ch);
exit;
end;
until ch=.;
writeln(нет цифр);
end.
begin
repeat
read(ch);
if ch in [0..9] then
begin
writeln(есть цифра ,ch);
exit;
end;
until ch=.;
writeln(нет цифр);
end.
//прога на Pascal`е
var
cifra: set of char = [0..9];
s: string;
i: byte;
begin
writeln (Введите последовательность символов: );
readln (s);
for i:=1 to length (s) do
if s[i] in cifra then
begin
write (На , i, месте стоит цифра , s[i]);
exit;
end;
write (В строке нет цифр);
end.
var
cifra: set of char = [0..9];
s: string;
i: byte;
begin
writeln (Введите последовательность символов: );
readln (s);
for i:=1 to length (s) do
if s[i] in cifra then
begin
write (На , i, месте стоит цифра , s[i]);
exit;
end;
write (В строке нет цифр);
end.
278
Смежные вопросы: