Question

1.Podaj imie i nazwisko i wypisz je na glownym ekranie ale zeby bylo to wypisane w gornym prawym rogu oraz napisac z ilu sie sklad imie i nazwisko liter

2. Napisz 2 liczby i je dodaj i wypisz je na ekran!

Pls o szybka odpowiedz zalezy mi na tym zadaniu jak najszybciej potrzebne do niedzieli do godziny 20:00

I te zadania musza byc w Free Pascal'u

Za najlepsza odp daje Najlepsze

Answer 1

Program zadanie1; uses crt; const max=80; //gdyby wyraz był w złej pozycji pobaw się zmieniając 80 na inne liczby var sl,sl1:string; a,b,c,d:integer; begin readln(sl); for a:=1 to max-length(sl) do write(' '); writeln(sl); a:=1; while(sl[a]' ')do a:=a+1; writeln('dlugosc imienia : ',a-1); writeln('dlugosc nazwiska: ',length(sl)-a); readln(); end. program zadanie2; uses crt; var a,b,c,d:integer; begin readln(a,b); writeln(a+b); readln(); end.