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.

8 tháng 9 2019

- 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

7 tháng 3 2017

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

#include <bits/stdc++.h>

using namespace std;

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cout<<"*";

return 0;

}

18 tháng 2 2022

Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

22 tháng 10 2021

uses crt;

var i:integer;

begin

clrscr;

for i:=0 to 9999 do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

readln;

end.

31 tháng 3 2023

Câu 1:

ho_ten = input("Nhập họ tên: ")

tach_ho_ten = ho_ten.split()

if len(tach_ho_ten) > 1:

     ten = tach_ho_ten[-1]

     print("Tên của bạn là:", ten)

else:

     print("Nhập sai định dạng họ tên")

Câu 2: 

s = input("Nhập xâu: ")

hoa = s.upper()

print(hoa)