Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
8 tháng 9 2019 lúc 13:43

- Chương trình của thủ tục 1 là:

to canh

setpencolor 4

setpensize[2 2]

fd 50

repeat 4 [fd 50 rt 90]

end

to thutuc1

repeat 6[canh bk 50 rt 60]

- Chương trình thủ tục 2 là:

to thutuc2

cs setpencolor 1

REPEAT 6 [REPEAT 6 [FD 100 RT 360 /6] RT 360/6]

end

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
7 tháng 3 2017 lúc 6:01

a) to vuong

REPEAT 4 [FD 40 RT 90]

REPEAT 4 [FD 80 RT 90]

end

to hinha

RT 45

REPEAT 4 [VUONG RT 360/4]

End

b) to tamgiac

repeat 3[fd 70 rt 360/3]

end

to hinhb

setpensize[8 8]

setpencolor 1

repeat 5 [tamgiac rt 360/5]

setpensize [2 2]

setpencolor 7

repeat 5 [tamgiac rt 360/5]

end

c) to bongtuyet

fd 100 bk 50

rt 30

fd 50 bk 50

lt 60

fd 50 bk 50

rt 30

bk 50

end

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
20 tháng 11 2018 lúc 8:33

- Kết quả:

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
1 tháng 12 2017 lúc 9:31

hoquanghieu
Xem chi tiết
Nguyễn Giang Ank
12 tháng 4 2022 lúc 21:42

uses crt;

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

i,n,dem,t,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('So luong phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.

Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:22

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

Thanh Nhi Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:12

Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

edn;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.

Phạm Nguyễn Bảo Trân
Xem chi tiết
Phạm Nguyễn Bảo Trân
Xem chi tiết
Nguyễn Thị Uyên Thy
Xem chi tiết
Hoàng Anh Nguyễn
5 tháng 11 2021 lúc 16:50

hình :v