Var m:array [1..10] of integer;
I,s:integer;
Begin
S:=0;
For i:=1 to 10 do
Read(m[i]);
For i:=1 to 10 do
S:=s+m[i];
Write(s);
End.
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)
Program n1; var cl,q: string; begin cl:='клоун'; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:='м'; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:='н'; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(k>k1) then writeln('м больше чем н'); if(k<k1) then writeln('н больше чем м'); end.