Нажимаем кнопку Home и прыгаем на начало строки, на слово Для.
Два раза нажимаем Ctrl + стрелка вправо и попадаем на слово По.
<h2>a×5</h2><h2>(дробь) × (х+3)</h2><h2>х-7</h2><h2 /><h2>5а</h2><h2>(дробь)×(х+3)</h2><h2>х-7</h2><h2 /><h2>Ответ:</h2><h2>5ах+15а</h2><h2>(дробь)</h2><h2>х-7</h2>
//PascalABC.Net 3.2
{2}
function f(x:real):real;
begin
if x>0 then result:=x/3 else result:=x*sqr(x);
end;
begin
write (f(readreal('x =')));
end.
{3}
begin
var cat:=readinteger('Введите начальное кол-во:');
var count:=0;
if cat<2 then write ('Никогда') else
if cat>100 then write ('Уже не хватает') else begin
repeat
count+=1;
cat+=cat div 2;
until cat>100;
print ('Через', count, 'недели');
end;
end.
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>