решить маленькие задачки по делфи!

[Не_шарю_в_делфи]

наверное таких тем куча)
Помогите решить,кину сотку на телефон!

1)
нарисовать схему алгоритма и написать прогу на матрицу
6 12 18 24 30 36
5 11 17 23 29 35
. . . . . .
1 7 13 19 25 31

2)
дан текст, вывести все слова нач. с букв д,ф,г,а латинского алфавита (а текст любой)

Очень прошу,отзовитесь!

[Вадим Мошев]

я могу помочь...
К какому сроку это нужно?

[Pein95]

1:

program Project1;

{$APPTYPE CONSOLE}
var
a:array[1..6,1..6] of integer;
i,j,k:integer;
b:boolean;

begin
k:=7;
for I := 1 to 6 do
begin
b:=true;
  for j := 1 to 6 do
    begin
      if  b=true  then
      begin
        a[i,j]:=k-1;
        k:=k-1;
        b:=false;
      end else
      a[i,j]:=a[i,j-1]+6;

    end;
end;

for I := 1 to 6 do
begin
  for j:=1 to 6 do
  write ( a [ i , j ]:4)     ;
  writeln      ;
end;

readln;





end.

Вадим, сори украл у тя работу) просто нечем ща занятса)

[Вадим Мошев]

Pein95

Ничего страшного, Олег. Пойду наверное спать.

[Pein95]

просто не увидел твоего комента
щас другую напишу.

[Вадим Мошев]

ладно, ладно, решай

[Pein95]

а может и не решу)) в голове есть алгоритм но он очень страшный)

[Не_шарю_в_делфи]

срок минимальный - к утру))))) спасибо за первый номер)

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Classes;

  var
  text : string;
  i:Integer;
   TS : TStringList;

begin
  text :=  'I false like dafna icecream giant' ;



  TS := TStringList.Create;
  TS.Delimiter := ' ';
  TS.DelimitedText := text;

  Writeln('Result:');
  for i := 0 to TS.Count - 1 do
  if  (Pos('a',TS.Strings[i])=1) or  
       (Pos('d',TS.Strings[i])=1) or
       (Pos('f',TS.Strings[i])=1) or
        (Pos('g',TS.Strings[i])=1) then
   Writeln(TS.Strings[i]);

 

  FreeAndNil(TS);

    
     Readln;

end.

[Pein95]

блин я неправильно условие понял)) вот почему такая каша в голове была))