3
uses crt;

var

a,b:integer;

begin

clrscr;

writeln ('Podaj pierwsza liczbe.');

readln(a);

writeln('Podaj druga liczbe.');

readln(b);

if b=0 then writeln ('Brak odpowiedzi.')

else writeln ('Wynik to ',a/b:0:0);

readkey;

end.

4
uses crt;

var

a:integer;

begin

clrscr;

writeln('Podaj pierwsza liczbe.');

readln(a);

if a mod 2 = 0 then writeln ('Liczba jest parzysta.')

else writeln('Liczba jest nieparzysta.');

readkey;

end.

5
uses crt;

var

a,b:integer;

begin

clrscr;

writeln('Podaj pierwsza liczbe.');

readln(a);

writeln('Podaj druga liczbe.');

readln(b);

if a mod b = 0 then writeln('Liczba',a:2,' jest podzielna przez',b:2)

else writeln('Liczba',a:2,' nie jest podzielna przez',b:2);

readkey;

end.

6
uses crt;

var

a,b,c,d:longint;

begin

clrscr;

writeln('Podaj pierwsza liczbe.');

readln(a);

writeln('Podaj druga liczbe.');

readln(b);

writeln('Podaj trzecia liczbe.');

readln(c);

writeln('Podaj czwarta liczbe.');

readln(d);

if a mod b = 0 then

if c mod d = 0 then

writeln('Wynik brzmi ',a/b+c/d:1:1)

else writeln('Brak odpowiedzi.');

readkey;

end.

7
uses crt;

var

a,b,w:byte;

begin

clrscr;

writeln('Podaj pierwsza liczbe.');

readln(a);

writeln('Podaj druga liczbe.');

readln(b);

writeln('Podaj wynik mnozenia ',a,'*',b);

readln(w);

if w=a*b then writeln('Brawo! Odpowiedz jest prawidlowa.')

else writeln('Kiepsko z toba! Odpowiedz poprawna brzmi ',a*b:1);

readkey;

end.

8
uses crt;

var

a,b,c,w:integer;

begin

writeln('Podaj bok a.');

readln(a);

writeln('Podaj bok b.');

readln(b);

if a>0 then if b>0 then

writeln('Dlugosc przeciwprostokatnej wynosi ',sqrt(sqr(a)+sqr(b)):0:0)

else writeln('Nie da sie obliczyc.');

readkey;

end.

9
uses crt;

var

c,y,b,a:integer;

begin

writeln('Podaj wartosc wspolczynnika a.');

readln(a);

writeln('Podaj wartosc wspolczynnika b.');

readln(b);

writeln('Podaj wartosc wspolczynnika c.');

readln(c);

if sqr(b)-4*a*c<0 then writeln ('Nie ma rozwiazania.')

else if sqr(b)-4*a*c>0 then

writeln('Rozwiazanie brzmi ',(-b-(sqr(b)-4*a*c))/2*a:0:0,' i ',(-b-(sqr(b)-4*a*c))/2*a:0:0)

else writeln('Rozwiazanie brzmi ',-b/(2*a):0:0);

readkey;

end.

---