vasia_borovec
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses crt ;
var
i,j, lim,a,b,c,d : word ;
m,k :integer ;
Begin
clrscr;
write('m=');
readln (m);
for i:=1 to m do
begin
j:=2;
lim:=round(sqrt(i));
while (i mod j <> 0) and (j<=lim) do inc(j) ;
if j>lim then
begin
if i>=1000 then
a:=i div 10 ;
b:=a div 10 ;
c:=b div 10 ;
a:=a mod 10 ;
b:=b mod 10 ;
c:=c mod 10 ;
a:=a mod 2 ;
b:=b mod 2 ;
c:=c mod 2 ;
if (a<>0) and (b<>0) and (c<>0) then write (i,' ') ;
if i>=100 then
a:=i div 10 ;
b:=a div 10 ;
a:=a mod 10 ;
b:=b mod 10 ;
a:=a mod 2 ;
b:=b mod 2 ;
if (a<>0) and (b<>0) then write (i,' ') ;
if i>=10 then
a:=i div 10 ;
a:=a mod 10 ;
a:=a mod 2 ;
if a<>0 then write (i,' ');
if i<10 then write (i,' ');
end;
end;
end. |
Всего записей: 20 | Зарегистр. 19-10-2011 | Отправлено: 19:13 19-11-2011 | Исправлено: vasia_borovec, 19:16 19-11-2011 |
|
