P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
0.192 секунды.
Буду благодарен, если вы "нажмете" "спасибо".
Const n=10;
var a:array[1..n] of real;
i,k:integer;
s:real;
begin
s:=0; k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];
if (a[i]<5) and (a[i]>-7) then inc(k);
end;
writeln(s,' ',k);
end.
Microsoft Word:
+ Огромное множество инструментов для форматирования текста.
+ Возможность помимо текста вставлять в документ картинки, диаграммы, таблицы и т.д.
- Поддержка ограниченного количества форматов.
Блокнот:
- Поддерживает только базовое форматирование текста (переносы строк, пробелы).
- Не поддерживает картинки, диаграммы, таблицы и т.д.
+ При помощи Блокнота можно просмотреть почти любой текстовый документ.
Кавалерия — конница, смелый — храбрый, идти — шагать