Question

turbopascal....

napisz program, ktory wypisuje wszystkie dwucyfrowe liczby naturalne:

a)ktore maja obie cyfry nieparzyste

b)ktore maja ostatnia cyfre podzielna przez 3,

w momencie zakonczenia programu wszystkie liczby musza byc widoczne na ekranie

prosze o pomoc

Answer 1

program nazwa;
var
        liczba:string;
        x:integer;
        a1,a2:integer;
begin
        a1:=0;
        a2:=0;

        writeln('a) ktore maja obie cyfry nieparzyste: ');

        for x:=10 to 99 do
        begin
                str(x,liczba);

                val(liczba[1],a1);
                val(liczba[2],a2);

                if (((a1 mod 2) <> 0) and ((a2 mod 2 ) <> 0)) then
                        write(liczba,',');
        end;

        writeln;
        writeln('b) ktore maja ostatnia cyfre podzielna przez 3: ');

        for x:=10 to 99 do
        begin
                str(x,liczba);

                val(liczba[2],a2);

                if ((a2 mod 3) = 0) then
                        write(liczba,',');
        end;
readln;
end.

 

http://wklej.org/id/972605/