Question

[Nguyễn Hoàng Vũ]

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

Answer 1

[Nguyễn Lê Phước Thịnh]

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.

Answer 2

[Nguyễn Hoàng Vũ]

cảm ơn bạn nha TT