a) Nhân vật xoay về phía trái trên vùng sân khấu dùng lệnh:

b) Nhân vật thay đổi vị trí trên vùng sân khấu dùng lệnh:

Nhân vật Mèo trên sân khấu hoạt động di chuyển 10 bước và nói "Xin chào" trong 2 giây.

Không thể ghép thêm lệnh trước lệnh .

a) Vùng Lập trình có 9 lệnh, mỗi nhóm lệnh có màu sắc như hình sau:

b) Nhân vật Mèo sẽ bắt đầu di chuyển 10 bước và nói Xin chào trong 2 giây.

Tham khảo:

1 - b, 2 - a, 3 - d, 4 - e, 5 - c.

Khi nháy chuột vào lệnh vừa tạo ở vùng Lập trình, nhân vật Mèo di chuyển một đoạn dài 15 bước.

Em chọn nhân vật và lập trình theo mẫu.

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac so la: ',t);

writeln('Trung binh cong cac so la: ',t/n:4:2);

readln;

end.