/i/Yazılım

Umuyoruz ki geleceğin yazılımcıları bu altinciden çıkacak!
    başlık yok! burası bom boş!
  1. 51.
    -3
    {oldu mu panpa}
    uses crt;
    type
    incigibinci= array [0..12] of char;
    var
    ananyanimda: incigibinci
    begin
    ananyanimda[0]:="a";
    ananyanimda[1]:="n";
    ananyanimda[2]:="a";
    ananyanimda[3]:="n";
    ananyanimda[4]:=" ";
    ananyanimda[5]:="y";
    ananyanimda[6]:="a";
    ananyanimda[7]:="n";
    ananyanimda[8]:="i";
    ananyanimda[9]:="m";
    ananyanimda[10]:="d";
    ananyanimda[11]:="a";
    begin
    repeat
    sleep (50000);
    writeln (ananyanimda[0]);
    sleep (50000);
    writeln (ananyanimda[1]);
    sleep (50000);
    writeln (ananyanimda[2]);
    sleep (50000);
    writeln (ananyanimda[3]);
    sleep (50000);
    writeln (ananyanimda[4]);
    sleep (50000);
    writeln (ananyanimda[5]);
    sleep (50000);
    writeln (ananyanimda[6]);
    sleep (50000);
    writeln (ananyanimda[7]);
    sleep (50000);
    writeln (ananyanimda[8]);
    sleep (50000);
    writeln (ananyanimda[9]);
    sleep (50000);
    writeln (ananyanimda[10]);
    sleep (50000);
    writeln (ananyanimda[11]);
    until 1=0;
    end;
    end;
    end.
    ···
   tümünü göster