Циклический алгоритмы

[елена1987]

1. Задано целое А>25. Найдите наименьшее целое неотрицательное k, при котором 5k > А.
2. Числа Фибоначчи Fопределяются по формулам F0=F1=1, Fi=Fi-1+Fi-2 при i= 2, 3, ... Найдите первое из чисел
Фибоначчи, которое превосходит заданное число М (М>0).
3. Дано натуральное число N. Выясните, сколько цифр оно содержит.
4. Даны два натуральных числа М и N - числитель
и знаменатель дроби M/N. Требуется сократить дробь, насколько это возможно.
5. Дано натуральное число N. Получите его запись в двоичной, восьмеричной и
шестнадцатеричной системах счисления.
6. Заданное натуральное число М представьте в виде суммы квадратов двух неравных натуральных
чисел. В случае, если это невозможно, выведите соответствующее сообщение.
7.
Вычислить sin в степ (n) x
8. Вычислить S=N+(N-1)+…+3+2+1

Если с линейными и разветвляющимися алгоритмами для меня все просто, то с циклическими вообще нет никаких идей.
Заранее спасибо

[Vanta11a]

int k;
for (k = 0; 5*k < A-1; k++) {
}
cout << k;

Например. Алгоритмы, наработки, что-нибудь?

[елена1987]

Я если честно, даже не знаю с какого края подойти. Только на 3 задачу совместными усилиями кое-что набросать смогли.
var
k, n : word;
begin
k := 0;
write('введите N: ');
readln(n);
while n <> 0 do
begin
n := n div 10;
inc(k);
end;
writeln('количество цифр: ', k);
readln
end.

[Mad_Cat]

{Задано целое А>25.
Найдите наименьшее целое неотрицательное k,
при котором 5k > А}
var k, A: Integer;
begin
  repeat
    readln(a);
  until a > 25;
  k := 5;
  while (5 * K) <= a do inc(k);
  writeln(k);
  readln;
end.

{Числа Фибоначчи Fопределяются по формулам F0=F1=1,
Fi=Fi-1+Fi-2 при i= 2, 3, ...
Найдите первое из чисел
Фибоначчи, которое превосходит заданное число М (М>0).}
var f0, f1, M: Integer;
begin
  repeat
    readln(m);
  until m > 0;
  f0 := 1; f1 := 1;
  while (f1 <= m) do
  begin
    f1 := f0 + f1;
    f0 := f1 - f0;
  end;
  writeln(f1);
  readln;
end.

{Дано натуральное число N.
Выясните, сколько цифр оно содержит.}
var c, N: Integer;
begin
  readln(N); c := 0;
  while (N <> 0) do
  begin
    inc(c);
    n := n div 10;
  end;
  writeln(c);
  readln;
end.

{Заданное натуральное число М представьте
в виде суммы квадратов двух неравных натуральных чисел.
В случае, если это невозможно,
выведите соответствующее сообщение.}
var i,j,M: Integer;
f:boolean;
begin
  readln(M);  f:=false;
  for i:=1 to round(sqrt(M)) do begin
  for j:=i+1 to round(sqrt(M)) do
  if i*i+j*j=M then begin
    f:=true;
    Writeln(i,'^2+',j,'^2=',M);
    break;
  end;
  if f then break;
  end;
  if not f then writeln('Impossible ept');
  readln;
end.

{Вычислить sin в степ (n) x}
var x,sn: real;
n,i:integer;
begin
  readln(x,n);
  if n=0 then writeln(1);
  sn:=1;
  for i:=1 to abs(n) do
  if n>0 then sn:=sn*sin(x)
  else sn:=sn/sin(x);
  writeln(sn:6:3);
  readln;
end.

{Вычислить S=N+(N-1)+…+3+2+1}
var s: real;
n,i:integer;
begin
  readln(n);
  s:=0;
  for i:=n downto 1 do
   s:=s+i;
  writeln(s:0:0);
  readln;
end.