Ai dk roi thi diem danh nha!!!

mik lam roi ak

uses crt;

var a:array[1..100]of integer;

n,i,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so nguyen duong la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

writeln;

writeln('Cac so nguyen to la: ');

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

phai chiu

uses crt;

begin

clrscr;

writeln('rat vui khi duoc lam quen voi cac ban');

writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8');

writeln('chuong trinh Turbo Pascal rat la hay');

readln;

end.

chạy thử đi hay lắm

5 bước ra lệnh cho robot nhặt rác:

1. Tiến hai bước

2.Quay trái, tiến một bước

3.Nhặt rác

4.Quay phải, tiến ba bước

5.Quay trái, tiến hai bước

6. Bỏ rác vào thùng

Bạn tham khảo trong bài giảng của hoc24 nhé : Bài 1. Máy tính và chương trình trong máy tính | Học trực tuyến

5 bước ra lệnh cho robot nhặt rác:

1. Tiến hai bước

2.Quay trái, tiến một bước

3.Nhặt rác

4.Quay phải, tiến ba bước

5.Quay trái, tiến hai bước

6. Bỏ rác vào thùng

_{thiếu begin}

de 1:

huong dan

- Nhập hai cạnh vào hai biến a, b.

- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.

b. Mã chương trình:

Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin

Write('Nhap chieu dai:'); readln(a);

Write('Nhap chieu rong:'); readln(b);

S := a*b;

CV := (a+b)*2;

Writeln('Dien tich hinh chu nhat la:',S);

Writeln('Chu vi hinh chu nhat la:',CV:10:2);

readln

end.

de 3,

program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

program chuc_hoc_tot;

uses crt;

begin

write('lop 8D on ao');

end.