Question

PROGRAMOWANIE

potrzebne na dzisiaj

Napisz program w PASCALu, ktory dla wprowadzonego znaku i program wyprowadza twoje imie, dla n nazwisko, a dla innego niz i oraz n komunikat "Zły znak".

Błagam pomocy.

Answer 1

Program Znak;
uses crt;
var a: char;
i,n: string;
begin
i:='Piotr';  {możesz zmienić wartości  lub wykasować te 2 linijki i napisać writeln('Podaj imie'); readln(i); writeln('Podaj nazwisko'); readln(n);}
n:='Bryczka';
writeln('Podaj znak');
readln(a);
a:=Upcase(a);
if a='I' then
   writeln(i)
else
    if a='N' then
    writeln(n)
    else
    writeln('Zly znak');
readln;
end.