ZAD1 program wypisz; var I: Integer; //kolejna liczba naturalna L: Integer; //licznik wypisanych liczb begin I := 0; L := 0; while L < 20 do begin I := I + 1; if I mod 3 <> 0 then begin Continue; end; if I mod 4 <> 0 then begin Continue; end; if I mod 9 = 0 then begin Continue; end; writeln(I); L := L + 1; end; end. Program wypisuje: 12 24 48 60 84 96 120 132 156 168 192 204 228 240 264 276 300 312 336 348 ZAD2. program wypisz; var I: Longint; //kolejna liczba naturalna L: Integer; //licznik wypisanych liczb begin I := 0; L := 0; //while True do //wypisywanie bez stopu while L < 20 do //wypisywanie ze stopem begin I := I + 1; if I mod 5 <> 0 then begin Continue; end; if I mod 6 <> 0 then begin Continue; end; if I mod 7 <> 0 then begin Continue; end; writeln(I); L := L + 1; end; end. Program wypisuje: 210 420 630 840 1050 1260 1470 1680 1890 2100 2310 2520 2730 2940 3150 3360 3570 3780 3990 4200 Uwaga do zadania 2: Niemozliwe jest wypisanie wszystkich, bo liczb tej postci jest nieskonczenie wiele, zatem program nie skonczyłby sie. Dodalem wartunek stopu, tzn program wypisuje 20 pierwszych liczb. Jednak gdyby chodzilo o wypisywanie bez warunku stopu, wtedy w linii z while nalezy napisac True zamiast nierownosci. Napisalem i zakomentowalm taka linie.
TURBO PASCAL 1.Napisz program, który wypisuje początkowe 20 liczb naturalnych podzielnych przez 3 lub 4, ale niepodzielnych przez 9. 2.program wypisuje wszystkie liczby naturalne takie,ze n nie jest podzielna przez zadnaz liczb 5,6,7....
TURBO PASCAL 1.Napisz program, który wypisuje początkowe 20 liczb naturalnych podzielnych przez 3 lub 4, ale niepodzielnych przez 9. 2.program wypisuje wszystkie liczby naturalne takie,ze n nie jest podzielna przez zadnaz liczb 5,6,7....
