Заметим, что цикл s=s-5; выполняется 11 раз. Отсюда следует, что из s вычитается 5*11=55.
100-55=45
const n=8;
var i,j,v,max,k:integer;
a:array [1..n] of integer = (0,1,9,2,4,3,6,5);
begin
write (' Исходный массив: ');
for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n-1 do
begin
max:=i;
for j:=i+1 to n do
if a[j] > a[max] then max:=j;
v:=a[i];
a[i]:=a[max];
a[max]:=v
end;
write ('Преобразованный массив: ');
for i:=1 to n do write(a[i],' ');
end.
Я так полагаю вы про оптимизацию.
Ответ:
var s, n: integer;
Мы обозначаем переменные целого типа
var s, n: integer;
начало программы
s:=0; n:=1;
присваиваем переменным значения
while sqr(s+2)<125 do
Цикл, пока корень квадратный s+2 < 125 - выполнять цикл
begin
начало цикла
n:=n*2;
умножаем n на 2
s:=s+2;
прибавляем к s 2
end;
конец цикла
write(n);
вывести n
end.
конец программы
Объяснение:
У Вас ошибка в 9ой строчке, пропустили точку с запятой.
var s, n: integer;
begin
s:=0; n:=1;
while sqr(s+2)<125 do
begin
n:=n*2;
s:=s+2;
end;
<h2>write(n)<u><em>
</em></u><u><em>
;</em></u></h2>
end.
Дуже просто 5+6-7+10=14 грибів . А блок схема :
малюєш овал в ньому пиши початок, далі прямокутник, а в ньому 5, далі знов прямок, а вньому +6 і т.д