Pascal grupa 2

Dyskusja w 'Klasa 4I - 2020/2021' rozpoczęta przez użytkownika Andrzejek Andrzejek, 13 Listopad 2018.

  1. Andrzejek Andrzejek New Member

    program oof;
    uses Crt;
    const Imie = 'Maciej';
    Var Wynik, dmie, Nazwisko:String;
    begin
    write('Jan');
    readln;
    ClrScr;
    writeln('Pawel');
    readln;
    ClrScr;
    writeln('Drugi');
    readln;


    Wynik:=Copy(Imie,1,2);
    writeln(Wynik);
    readln;
    ClrScr;
    writeln('Depresje');
    readln;
    dmie := 'Jan';
    Nazwisko := 'Brzeczyszczykiewicz';
    Wynik := concat(dmie,' ',Nazwisko);
    writeln(Wynik);
    readln;
    end.
    Andrzejek Andrzejek, 13 Listopad 2018
    #1

Poleć tę stronę