Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..10000]of integer;
i,n,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
c1:
Dùng phím tắt để trình chiếu Slide (thường dùng) Thực hiện: Nhấn phím F5 hoặc Fn + F5 trên bàn phím để chuyển sang giao diện trình chiếu từ trang đầu tiên. Còn nếu bạn muốn trình chiếu bắt đầu từ slide đang mở thì bạn hãy nhấn tổ hợp phím Shift + F5
em hãy viết chương trình in ra phép toán và dòng chữ sau:
12+20=32
chào các bạn mình là học sinh lớp 9
uses crt;
begin
clrscr;
writeln('12+20=',12+20);
writeln('chao cac ban minh la hoc sinh lop 9');
readln;
end.
