Question

PASCAL ! napisać program:

1. obliczający sumę i iloraz dwóch podanych liczb,

2. obliczający średnią arytmetyczną z dowolnej ilości liczb parzystych,

3. wskazujący czy dana liczba jest podzielna przez 3 bez reszty.

THE END. proszę o pomoc - pilne!

Answer 1

1.

program programy;
uses crt;
var a,b:integer;

begin
clrscr;
writeln('Podaj pierwsza liczbe.');
readln(a);
writeln('Podaj druga liczbe.');
readln(b);
writeln('Suma liczb ',a,' i ',b,' wynosi ',a+b,', a iloraz tych liczb wynosi ',a/b:2:2);

readln;
end.

 

2.

program programy;
uses crt;
var a,i:integer;
s:real;

begin
clrscr;
s:=0;
i:=0;
writeln('Podaj liczby do obliczenia sredniej. Kazda potwierdz enterem. Wpisz 0, aby zakonczyc wpisywanie.');

repeat
readln(a);
if (a mod 2 = 0) and (a<>0) then
begin
s:=s+a;
i:=i+1;
end
else if (a mod 2 <> 0) then writeln('Podana liczba jest nieparzysta');

until a=0;
if (i<>0) then writeln('Srednia arytmetyczna z podanych liczb wynosi: ',s/i:2:2)
else writeln('Nie wprowadziles zadnych poprawnych liczb.');
readln;
end.

 

3.

program programy;
uses crt;
var a:integer;

begin
clrscr;
writeln('Podaj liczbe, ktora chcesz sprawdzic.');
readln(a);
if (a mod 3 = 0) then writeln('Liczba ta jest podzielna przez 3.');
if (a mod 3 <> 0) then writeln('Liczba ta nie jest podzielna przez 3.');
readln;
end.

 

Pozdrawiam :)