viết câu lệnh vẽ các hình trên trong Logo
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.
Tham khảo:
Bước 1: Đặt trỏ chuột tại vị trí bạn muốn thêm bảng, chọn Insert > Chọn Table > Chọn Insert Table.
Bước 2: Nhập số cột của bảng trong phần Number of columns > Nhập số hàng của bảng trong phần Number of rows. Sau cùng nhấn OK để tạo bảng.
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
if (a[i] mod 2=0) and (a[i] mod 3=0) then t3:=t3+a[i];
end;
writeln(t1);
writeln(t2);
writeln(t3);
readln;
end.
Phím dài nhất trên bàn phím có tên gọi là:Space.
Chúc học tốt!
Em hãy cho biết, công cụ biểu mẫu thường được tạo lập để xem thông tin trong trường hợp nào