Мини программы в паскале

[Rimoru]

Помогите пожалуйста студенту, очень нужно написать несколько мини программ в паскале, а как я не знаю...


1. Определить количество цифр целого числа.
2. Найти сумму цифр целого числа.
3. Перевернуть целое число (Например, 124 > 421)
4. Два целых числа объединить в одно. (Например, 12, 53 > 1253)
5. Поменять местами первую и последнюю цифры целого числа.

[kuy]

Rimoru, что такое "пини программа"?))
1. Определить количество цифр целого числа.

var n,k : longint;
begin
readln(n);
k := 0;
while n>0 do
 begin
 n := n div 10;
 inc(k);
 end;
writeln(k);
readln;
end.

[KORT]

Пишу по памяти. Может где и ошибся...
Вторая:

  var
    i,LenS,p,d,kod,n: integer;
    s: string;
  begin
    p:=0;
    d:=0;
    readln('Введите целое число ',n);
    str(n,s);
    LenS:=length(s);
    for i:=1 to lenS do
      begin
        val(s[i],p,kod);
        d:=d+p;
      end;
    writeln('Сумма цифр целого числа ',n,' равна ',d);
    readln;
  end.

Третья:

  var
    i,LenS,p,kod,n: integer;
    s,s1,s2: string;
  begin
    s1:='';
    s2:='';
    p:=0;
    readln('Введите целое число ',n);
    str(n,s);
    LenS:=length(s);
    for i:=1 to lenS do
      begin
        s1:=copy(s[i],i,1);
        s2:=concat(s1,s2);
      end;
    val(s2,p,kod);
    writeln('Результат переворота целого числа ',n,' =  ',p);
    readln;
  end.

Четвертая:

  var
    p,n1,n2,kod: integer;
    s,s1,s2: string;
  begin
    s1:='';
    s2:='';
    p:=0;
    readln('Введите первое целое число ',n1);
    readln('Введите второе целое число ',n2);
    str(n1,s1);
    str(n2,s2);
    LenS:=length(s);
    s:=concat(s1,s2);
    val(s,p,kod);
    writeln('Два целых числа ',n1,' и ',n2,' объединились в число = ',p);
    readln;
  end.

Пятая:

  var
    LenS,p,kod,n: integer;
    s,s1,s2,s3: string;
  begin
    p:=0;
    readln('Введите целое число ',n);
    str(n,s);
    LenS:=length(s);
    s1:=copy(s,1,1);
    s2:=copy(s,2,lens-2);
    s3:=copy(s,lenS,1);
    val(concat(s3,s2,s1),p,kod);
    writeln('В целом числе ',n,' меняем первую цифру ',s1,' и последнюю ',s3,' местами. Результат: ',p);
    readln;
  end.

[Rimoru]

Спасибо вам большое. А можно вот эти?


1. Для 2-х целых чисел вычислить наибольший общий делитель по алгоритму Евклида.
2. Проверить правильность расстановки в тексте круглых скобок.
3. Вывести все четырехзначные числа, сумма цифр которых равна заданному числу.
4. Вывести все четырехзначные числа abcd, для цифр которых выполняется соотношение: ab – cd = a+b+c+d
5. Вывести все трехзначные числа в диапазоне от A до B, в записи которых нет одинаковых цифр.
6. Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры.

[IT-man]

1)Жмакни