zad
program ma wypisac wszystkie 3 cyfrowe liczby pierwsze w ktorych zadna z tych liczb nie zawiera 3 i 8.
program dziala i wypisuje liczby pierwsze ale tylko takie ktore nie maja na koncu 3 i 8, ale nie sprawdza czy liczby w srodku nie maja 3 i 8.
Gdzie zrobilam blad?? Bardzobym prosila o szybka odp bo niedlugo mam zajecia a musze to zrobic.
program liczby;
uses crt;
var i,j:integer;
czy:boolean;
begin
clrscr;
for i:=100 to 999 do
begin
czy:=true;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then
begin
czy:=false;
break;
end
else
repeat
begin
if (i mod 10=3) or (i mod 10=8) then
{wedlug mnie w tym miejscu powinien byc
begin a po break powinien byc end; ale
jak tak zrobie to mi wogole nie dziala
program}
czy:=false;
break;
i:=i div 10;
end;
until i=0;
if czy then write(i:4);
end;
readkey;
end.