Turbo pascal - Program ustalający płeć z podanego imienia
program imie;
uses crt;
var imie:string;
begin
Write('Wpisz swoje imie : ');
readln(imie);
writeln;
writeln('Twoja Plec to :');
if imie[length(imie)]='a' then writeln('KOBIETA')else
writeln('MEZCZYZNA');
end.
uses crt;
var imie:string;
begin
Write('Wpisz swoje imie : ');
readln(imie);
writeln;
writeln('Twoja Plec to :');
if imie[length(imie)]='a' then writeln('KOBIETA')else
writeln('MEZCZYZNA');
end.
Komentarze
Prześlij komentarz