1. Полная программа:
var a,b,c: Integer;
begin
a:=20;
b:=6;
b:=a-3*b;
if a>b then c:=a+2*b else c:=b+2*a;
writeln(c);
end.
2. c = 24
В 1 пропуске значение 4
во 2 значение 121
в 3 полученый результат заносится <span>в ячейку оперативной памяти с именем z и значением 484
</span>
Разрешение сканара А. Точки на дюйм
Наименьгая единица информации Е. Бит
8 двоичных разрядов Г октет
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>