По ритмичности звуков, на подобии азбуки морзе, наверное.
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
a,b:integer;
begin
readln(a,b);
if (a>b) then writeln(a,' > ',b)
else
if (a<b) then writeln(a,' < ',b)
else
writeln(a,' = ',b);
end.
Program chisla;
uses crt;
var a,b,c,d : integer;
begin
Writeln('Введите трехзначное число: ');
Readln(a);
if (a<100) or (a>999) then writeln('Введено не трехзначное число')
else
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-(b*100)-(c*10);
Writeln('Сумма цифр этого числа равна ',b+c+d);
end
end.