Var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
then
begin
while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
writeln(s);
end
else writeln('В строке нет слогов "ба"');
end.
Пример:
<span>Введите строку:
база
роза</span>
Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.
Ответ:
да да да да да ад
Объяснение:
не знаю как обяснить ну мой ответ это да√∵∫⇄⇆∞㏒←→⊕⊇⊇⊇⊄⊄×××±±±√∛∛∛³∧∧∵∵
var A:array[1..100000] of integer; i,k,i1,n:int64;
begin
read(n);
randomize;
for i:=1 to n do
A[i]:=random(2);
writeln('Массив до переформировки:');
for i:=1 to n do
write(A[i],' ');
writeln;
for i1:= 1 to n do
for i:=1 to n-1 do
if A[i]>A[i+1] then begin k:=A[i]; A[i]:=A[i+1]; A[i+1]:=k; end;
writeln('Массив после переформировки:');
for i:=1 to n do
write(A[i],' ');
end.
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.