Question

Może ktoś mi rozwiązać takie oto zadania z Pascala.

zad 1 Program który oblicza średnią"n" podanych przez użytkownika.

zad 2 Program który oblicza dowolną potęge dowolnej liczby.

zad 3 Program który wypisze liczby podzielne przez 4 i przez 3 zakresu od 1 doo 100

Answer 1

// zad 1 Program który oblicza średnią"n" podanych przez użytkownika.

program nazwa;
var
        n:integer;
        liczba:double;
        srednia:double;
        x:integer;
begin
        n:=0;
        liczba:=0;
        srednia:=0.0;

        writeln('Podaj ile liczb chcesz wprowadzic: ');
        readln(n);

        for x:=1 to n do
        begin
                writeln('Podaj liczbe ',x,': ');
                readln(liczba);
                srednia:=srednia+liczba/n;
        end;

        writeln('Srednia: ',srednia:0:2);
readln;
end.


// zad 2 Program który oblicza dowolną potęge dowolnej liczby.

program nazwa;
var
        podstawa:integer;
        wykladnik:integer;
        wynik:integer;
        x:integer;
begin
        podstawa:=0;
        wykladnik:=0;
        wynik:=1;

        writeln('Podaj podstawe: ');
        readln(podstawa);

        writeln('Podaj wykladnik: ');
        readln(wykladnik);

        for x:=1 to wykladnik do
        begin
                wynik:=wynik*podstawa;
        end;

        writeln('Wynik: ',wynik);
readln;
end.


// zad 3 Program który wypisze liczby podzielne przez 4 i przez 3 zakresu od 1 doo 100

program nazwa;
var
        x:integer;
begin
        for x:=1 to 100 do
        begin
                if (((x mod 2) = 0) and ((x mod 3) = 0)) then
                begin
                        write(x,',');
                end;
        end;
readln;
end.

 

http://wklej.org/id/960877/