Задачки в Delphi.

[MoxFalder]

Помогите решить задачки в Delphi.
Дано число. Отбросить в нем все цифры, стоящие левее самой правой единицы.

Дана последовательность чисел ai. Построить новую последовательность, состоящую из тех элементов, которые больше суммы всех предыдущих.

Во второй задаче сделал 1-ую часть,а вторую x3 как Первая вобше загадочная.Ее с помощью div и mod делать?

[Jeni]

Сообщение от MoxFalder

Первая вобше загадочная.Ее с помощью div и mod делать?

Можно преобразовать число в строку, найти в ней нужную цифру и "откусить" кусок строки до этой цифры.

[MoxFalder]

Сообщение от Jeni

Можно преобразовать число в строку, найти в ней нужную цифру и "откусить" кусок строки до этой цифры.

Я понел принцеп,но надо с использованием while или reapet

[NeiL]

Сообщение от MoxFalder

Я понел принцеп,но надо с использованием while или reapet

  while (Length(S) > 0) and (S[1] <> '1') do
    Delete(S, 1, 1);

[MoxFalder]

  while (Length(S) > 0) and (S[1] <> '1') do
    Delete(S, 1, 1);

Спасибо.Кто поможет с первой задачей?

[Сергей2]

Что лучше Паскаль или C++

[puporev]

№1.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var n,m,k,t:integer;
begin
write('n=');readln(n);
m:=1;t:=n;
repeat
   k:=N mod 10;
   m:=m*10;
   n:=n div 10;
until k=1;
write('m=',t mod m);
readln

end.

№2.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=10;
var  a,b:array[1..n]of real;
     i,k,j:integer;
     sum:real;
begin
randomize;
for i:=1 to n do
   begin
    a[i]:=random(20)+random-8;
    write(a[i]:6:2);
   end;
writeln;
k:=0;
for i:=1 to n do
   begin
     sum:=0;
     for j:=1 to i-1 do sum:=sum+a[j];
     if a[i]>sum then
       begin
        k:=k+1;
        b[k]:=a[i];
       end;
    end;
for i:=1 to k do
write(b[i]:6:2);
readln
end.

[MoxFalder]

Сообщение от puporev

№1.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var n,m,k,t:integer;
begin
write('n=');readln(n);
m:=1;t:=n;
repeat
   k:=N mod 10;
   m:=m*10;
   n:=n div 10;
until k=1;
write('m=',t mod m);
readln

end.

№2.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=10;
var  a,b:array[1..n]of real;
     i,k,j:integer;
     sum:real;
begin
randomize;
for i:=1 to n do
   begin
    a[i]:=random(20)+random-8;
    write(a[i]:6:2);
   end;
writeln;
k:=0;
for i:=1 to n do
   begin
     sum:=0;
     for j:=1 to i-1 do sum:=sum+a[j];
     if a[i]>sum then
       begin
        k:=k+1;
        b[k]:=a[i];
       end;
    end;
for i:=1 to k do
write(b[i]:6:2);
readln
end.

А как сделать,чтобы числа выводились в listbox в 2-ой задаче?Я тут чето мудил,но они не выводятся или выходят за предел...

i:=StrToint(edit1.text);
for i:=0 to ListBox1.Items-1 do
begin
a:=Random(100);
a:=StrToInt(Listbox1.Items[i]);
ListBox1.Items.Add(Edit1.Text);
end;

[puporev]

Скинь сюда архив проекта, лень делать.

[MoxFalder]

Сообщение от puporev

Скинь сюда архив проекта, лень делать.

Шас Сделаю.