Var
a: array [1..10000] of integer;
i,j,k,m,n:integer;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to 3 do
begin
m := a[i];
k := i;
for j := i+1 to n do
if a[j] < m then
begin
m := a[j];
k := j
end;
for j := k downto i+1 do
a[j] := a[j-1];
a[i] := m
end;
for i := 1 to n do
write(a[i],' ')
end.
Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными способами - с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками.
var s,p:string; n,i:integer;
begin
writeln('Введите символы:');
readln(s);
n:=pos('.',s)-1;
writeln('n = ',n);
p:='';
for i:=1 to n do p:=s[i]+p;
writeln('а)');
writeln(p);
p:='';
if n mod 2 = 0 then i:=2 else i:=1;
while i<=n do
begin
p:=p+s[i];
i:=i+2;
end;
writeln('б)');
writeln(p);
end.
Пример:
Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки
n = 21
а)
,2s ,1s ыловмис ынаД
б)
Дн ивл 1 2
4^k < m.
представим m как 4^log(4)m. (Это выражение равно m (по основному логарифмическому тождеству), 4 - основание логарифма).
4^k < 4^log(4)m.
k < log(4)m.
Т.е по идее получается, что наибольшее целое k = log(4)m с отбрасывание дробной части.
Сам код:
var m:integer; k:real;
begin
write('m = ');
readln(m);
k:=ln(m)/ln(4); {вычисляем логарифм m по основанию 4}
write('k = ',int(k)); {выводим целую часть}
end.
1.
var x,a:integer; p:real;
begin
a:=3;p:=1;
for x:=1 to 5 do p:=p*a*x*x/sqrt(x+5);
writeln('p=',p);
<span>end.
2.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
while x<5 do
begin
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
end;
writeln('p=',p);
<span>end.
3.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
repeat
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
until x=5;
writeln('p=',p);
<span>end.
Результат:
p=20122.311710423
</span></span></span>
Var a:array[1..10] of real; i:integer;
begin
for i:=1 to 10 do
a[i]:=(2*i-1)/cos(i);
for i:=1 to 10 do
writeln(i,'->',a[i]);
readln;
end.<span>
</span>
