Question

W projektach oddaj projekt. "Procedura Writeln i Readln: O treści. Frma X zamawia program który wykona: Po uruchomieniu: Podaj imie: Jan Podaj nazwisko: Kowalski Podaj nr w dzienniku: 7 Podaj adres e-mail: [email protected] Podaj numer telefonu: 665556551 Widok po wpisaniu numeru tel: ************************************ * Jan Kowalski * * tel: [phone] * * nr 7 email: [email protected] * * * ************************************

Answer 1

uses crt;
var numer: byte;
imie,nazwisko,mail: string;
numer_telefonu: longint;
begin
write('Podaj imie: ');
readln(imie);
write('Podaj nazwisko: ');
readln(nazwisko);
write('Podaj numer w dzienniku: ');
readln(numer);
write('Podaj adres e-mail ');
readln(mail);
write('Podaj numer telefonu: ');
readln(numer_telefonu);

clrscr;
writeln('********************************************');
writeln('* *');
writeln('* ',imie,' ', nazwisko,' *');
writeln('* ',numer_telefonu,' *');
writeln('* ',numer,' ',mail,' *');
writeln('* *');
writeln('********************************************');
readln;
end.

 

Liczę na najlepszą odpowiedź. Pozdro.