1) Дана последовательность символов, оканчивающаяся точкой. Выяснить, имеется ли в ней хотя бы одна цифра... помогите :(
2) Дана последовательность символов, оканчивающаяся точкой. Заменить в ней группу букв «кот» на группу букв «мышь».
3)Вывести символы латинского алфавита с увеличением на 1 символ:
A
A B
A B C
...
A B C ... Z
1) 12345678910111213141516171819202122232425262728program program1;var s,subs:string;c:char;isOneNumber:boolean;p:byte;n,err:integer;beginwriteln(‚Введите фразу);readln(s);c:=s[1];isOneNumber:=false;p:=pos( ,s);while p<>0 do begin if p=1 then begin s:=copy(s,2,length(s)); p:=pos( ,s); continue; end; subs:=copy(s,1,p-1); s:=copy(s,p+1,length(s)); p:=pos( ,s); val(subs,n,err); if err<>0 then continue; if (n=0) or (n>9) then continue; isOneNumber:=true; break; end;if isOneNumber then writeln(‚ Есть числа, сосотоящие из одной цифры)else writeln(‚Нет чисел, состоящих из одной цифры);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
