K
Khách

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.

11 tháng 5 2023

Program HOC24;

var i,n: integer;

a: array[1..1000] of integer;

function nt(x: integer): boolean;

var j: integer;

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;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do if nt(a[i]) then write(a[i],' ');

readln

end.

10 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap n '); readln(n);

t:=1;

for i:=1 to n do t:=t*2;

write('2^,n,' = ',t);

readln

end.

10 tháng 5 2023

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.  

8 tháng 5 2023

Chọn Insert -> Chọn Table -> Chọn 8x7 Table 

8 tháng 5 2023
               
               
               
               
               
               
               

 

8 tháng 5 2023

Nhập a và b T← a + b; In ra T và kết thúc

8 tháng 5 2023

Bắt đầu--->nhập gt a,b---->tổng<-a+b--->gt tổng a,b---->kết thúc

29 tháng 7 2023

đitf

6 tháng 5 2023

Ok. Qúa là easy

GH
6 tháng 5 2023

Repeat 5 [ repeat 24 [ FD 10 RT 15 ] LT 36 PU FD 20 PD ]

image

 Bạn suy ra từ lệnh gốc vẽ đường tròn

REPEAT 60 [FD 5 RT 6]

vậy

REPEAT 5[REPEAT 60[FD 5 RT 6]RT 90] =D