1: Một số được gọi là số may mắn nếu trong biểu diễn trong hệ cơ số 10 chỉ gồm các chữ số 4 và 7. Chẳng hạn 47, 744, 4 là số may mắn, các số 5, 17,467 không phải là số may mắn.
Viết chương trình nhập vào số nguyên dương n(0<n<=10^9), thông báo ra màn hình số vừa nhập có phải là số may mắn hay không?
2: Cho dãy số nguyên \(a_1,a_2,...,a_n\) (0<\(a_i< 10^9\) ,0<n<50). Viết chương trình nhập từ bàn phím số nguyên dương n và dãy a, tìm và in ra màn hình vị trí số nguyên tố lớn nhất cuối cùng trong dãy, nếu không có in ra số -1.
Không biết đăng bài khuya thế này ai giúp không nx TT
Bài 1:
uses crt;
var n,kt,d,i:longint;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
kt:=0;
d:=length(st);
for i:=1 to d do
if (st[i]<>'4') and (st[i]<>'7') then kt:=1;
if kt=0 then write(n,' la so may man')
else write(n,' khong la so may man');
readln;
end.
Bài 2:
Program hotrotinhoc_hoc24;
var vt,max,i,n,d: integer;
a: array[1..50] of longint;
t: longint;
function nt(x: longint): boolean;
var j: longint;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while (j<=trunc(sqrt(x))) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap so nguyen duong n: '); readln(n);
max:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if nt(a[i]) and (a[i]>=max) then
begin
max:=a[i];
vt:=i;
end;
end;
if vt=0 then write('-1') else write('Vi tri so nguyen to lon nhat cuoi cung trong day la : ',vt);
readln
end.
