em đặt hàng trên mạng và yêu cầu chuyển tiền thông tin như thế nào khiến em nghi ngại hoặc không muốn chuyển tiền
em đặt hàng trên mạng và yêu cầu chuyển tiền thông tin như thế nào khiến em nghi ngại hoặc không muốn chuyển tiền
Thông tin trong trường hợp nào dưới đây là đáng tin cậy? A. Bài viết hướng dẫn phòng tránh dịch bệnh trên trang web của cơ quan y té B. Bài viết của một cá nhân đăng tải trên mạng xã hội với mục đích bôi nhọ người khác C. Bài viết trên tài khoản mạng xã hội của một nhà báo có uy tín và có trích dẫn nguồn thông tin trang web của chính phủ D. Thông tin về thay đổi lịch học do giáo viên cung cấp
A. Bài viết hướng dẫn phòng tránh dịch bệnh trên trang web của cơ quan y tế
Tại Vương quốc Byte xinh đẹp, mỗi người luôn chọn cho mình một con số, theo họ số nguyên tố là số mang lại sự may mắn và ai tìm được một số siêu nguyên tố còn may mắn hơn nữa. Số siêu nguyên tố là một số nguyên tố mà khi bỏ 1 số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn là 1 số nguyên tố. Số 2333 là 1 số siêu nguyên tố vì 2333 là một số nguyên tố và 233, 23, 2 cũng là các số nguyên tố.
Dữ liệu vào: SNT.INP Chứa một số nguyên dương n (n ≤ 109)
Dữ liệu ra: SNT.OUT Nếu N là siêu nguyên tố ghi giá trị 1, ngược lại ghi giá trị 0
program KiemTraSoSieuNguyenTo;
uses crt;
function IsPrime(num: integer): boolean;
var
i: integer;
begin
if num < 2 then
IsPrime := false
else
begin
IsPrime := true;
for i := 2 to trunc(sqrt(num)) do
begin
if num mod i = 0 then
begin
IsPrime := false;
break;
end;
end;
end;
end;
function IsSuperPrime(num: integer): boolean;
var
i, temp: integer;
begin
IsSuperPrime := true;
while num > 0 do
begin
if not IsPrime(num) then
begin
IsSuperPrime := false;
break;
end;
temp := num mod 10;
num := num div 10;
end;
end;
var
n: integer;
inputFile, outputFile: text;
begin
assign(inputFile, 'SNT.INP');
assign(outputFile, 'SNT.OUT');
reset(inputFile);
rewrite(outputFile);
readln(inputFile, n);
if IsSuperPrime(n) then
writeln(outputFile, 1)
else
writeln(outputFile, 0);
close(inputFile);
close(outputFile);
end.
const fi='SNT.INP'
fo='SNT.OUT'
var n:qword;
function isPrimeNumber(n:qword):byte;
var i:longint;
begin
if n<2 then exit(0);
for i:=2 to trunc(sqrt(n))do
if n mod i=0 then exit(0);
exit(1);
end;
function isSuperPrimeNumber(n:qword):byte;
begin
while n<>0 do
begin
if isPrimeNumber(n)=0 then exit(0);
n:=n div 10;
end;
exit(1);
end;
begin
assign(input,fi);reset(input);
assign(output,fo);rewrite(output);
readln(n);
write(isSuperPrimeNumber(n));
close(output);
close(input);
end.
hay viet chuong trimh dua ra ngoai man hinh dong thong bao "Chao cac ban! Ten toi la..."
begin
write('Chao cac ban! Ten toi la...');
Readln
End.
hay viet chuong trimh dua ra ngoai man hinh dong thong bao "Chao cac ban! Ten toi la..." (sử dụng ngôn ngữ pascal):
program hello;
begin
writeln('Chào các bạn! Tên tôi là...');
readln;
end.
nhập giá trị cho một dãy số gồm n phần tử(n nhập từ bàn phím).hãy tính và in ra màn hình giá trị trung bình của dãy số
tên trong chương trình là gì? quy tắc đặt tên
Tham khảo
-Tên trong chương trình dùng phân biệt và nhận biết các đại lượng khác .
-
- Tên khác nhau
-Tên không trùng từ khóa
-Ngắn gọn, dễ nhớ, dễ hiểu
-Không được dùng số khi đặt tên.
nhập giá trị cho một dãy số gồm n phần tử(n nhập từ bàn phím).hãy tính và in ra màn hình giá trị trung bình của dãy số
Viết các câu lệnh in kết quả của biểu thức 2-1+4
Begin
Write('Ket qua cua 2 - 1 + 4 la ',2-1+4);
Readln;
End.
em hãy viết chương trình pascal hoàn chỉnh để tính chu vi (cv)và diện tích(s) của hình vuông có độ dài cạnh (a) được nhập vào từ bàn phím. thông báo kết quả (cv) và(s) ra màn hình
giúp mình với ạ sossss
Var a,cv,s:real;
Begin
Write('Canh hinh vuong a = ');readln(a);
cv:=4*a;
S:=a*a;
Write('Chu vi la ',cv:10:2,' dien tich la ',s:10:2);
Readln;
End.
VIẾT CHƯƠNG TRÌNH PASCAL SAU. Viết chương trình nhập cạnh và chiều cao hình tam giác. Tính và in diện tích hình tam giác.
nêu các từ khóa và tác dụng của nó? Các quy tắc đặt tên trg pascal