Question

Prosze o rozwiazanie zadania.

Napisz program w pascalu obliczajacy srednia ocen z 6 przedmiotow. Jezeli zostanie wpisana liczba mniejsza od 1 lub wieksza od 6 program ma napisac komunikat "Error".

Z gory dziekuje za pomoc :D

Answer 1

program nazwa;
var
        ocena:double;
        ilosc:integer;
        suma:double;
begin
        ocena:=0.0;
        ilosc:=0;
        suma:=0.0;

        while (ilosc<6) do
        begin
                writeln('Podaj ocene z ',ilosc+1,' przedmiotu: ');
                readln(ocena);

                if ((ocena<=6) and (ocena>=1)) then
                begin
                        inc(ilosc);
                        suma:=suma+ocena;
                end
                else
                begin
                        writeln('ERROR');
                end;
        end;

        writeln('Srednia: ',suma/ilosc:0:2);
readln;
end.

 

http://wklej.org/id/965828/