trmyxekk
Giới thiệu về bản thân
Chào mừng bạn đến với trang cá nhân của trmyxekk
0
0
0
0
0
0
0
2024-11-17 15:14:44
with nhé
2024-11-17 15:11:16
bạn tham khảo nhé
uses crt;
var i,n:longint;
function cp(n:longint):boolean;
var i:longint;
begin
for i:=1 to n do if i*i=n then break;
if i<n then cp:=true else cp:=false;
end;
function tl(n:longint):boolean;
var i,tong:longint;
begin
tong:=0;
while n<>0 do
begin
tong:=tong+n mod 10;
n:=n div 10;
end;
if tong mod 2=1 then tl:=true else tl:=false;
end;
begin
readln(n);
for i:=1 to n do if (cp(i)=true) and (tl(i)=true) then writeln(i);
readln
end.
2024-11-15 22:14:04
thưa vắng, lác đác, lảng thoáng,... nhee