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.

12 tháng 1 2022

giúp lol😂 

12 tháng 1 2022

? cc

12 tháng 1 2022

ko giúp thì thôi còn nói người ta nữa :V

 

 

cút mẹ mày đi

25 tháng 1

Tính giá trị biểu thức

a = 10 / 3

b = 20 // (6 % 4)

print("10 / 3 =", round(a, 2))

print("20 // (6 % 4) =", b)

25 tháng 1

Tính chu vi và diện tích các hình

# Nhập dữ liệu

cd = float(input("Nhập chiều dài hình chữ nhật: "))

cr = float(input("Nhập chiều rộng hình chữ nhật: "))


canh_vuong = float(input("Nhập cạnh hình vuông: "))


day = float(input("Nhập cạnh đáy tam giác: "))

cao = float(input("Nhập chiều cao tam giác: "))


r = float(input("Nhập bán kính hình tròn: "))


# Hình chữ nhật

cv_hcn = 2 * (cd + cr)

dt_hcn = cd * cr


# Hình vuông

cv_hv = 4 * canh_vuong

dt_hv = canh_vuong ** 2


# Hình tam giác

dt_tg = (day * cao) / 2


# Hình tròn

pi = 3.14

cv_tron = 2 * pi * r

dt_tron = pi * r * r


# In kết quả

print("Chu vi hình chữ nhật:", cv_hcn)

print("Diện tích hình chữ nhật:", dt_hcn)


print("Chu vi hình vuông:", cv_hv)

print("Diện tích hình vuông:", dt_hv)


print("Diện tích hình tam giác:", dt_tg)


print("Chu vi hình tròn:", cv_tron)

print("Diện tích hình tròn:", dt_tron)

25 tháng 5 2021

12

11 tháng 5 2021

a) Máy tính sẽ thực hiện 6 vòng lặp

t=0; j=30

11 tháng 5 2021

b) 

uses crt;

var j,t:integer;

begin

t:=105; 

j:=0;

while t>=20 do

begin

j:=j+5;

t:=t-j;

end;

writeln(t);

writeln(j);

readln;

end.

14 tháng 3 2017

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

14 tháng 3 2017

uses crt;

var

i,tong:integer

begin

tong:=0;

for i:=1 to 100 do

tong:=tong+i;

write(tong);

readln;

end.

11 tháng 5 2017

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

7 tháng 5 2017

Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại

8 tháng 5 2017

Bạn hãy vào phần thông tin tài khoản, sau đó chọn đổi ảnh đại diện, rồi nháy chọn ảnh mà bạn muốn đặt làm ảnh đại diện chọn open để tải lên, chờ trong giây lát ảnh sẽ được đổi, và pahir chờ khoảng 1 đến 2 tiếng để thay đổi hoàn toàn ảnh đại diện cho bạn đấy.

16 tháng 3 2017

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

18 tháng 3 2017

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

like mạnh cho bạn

23 tháng 6 2017

Trả lời câu hỏi thì sẽ có GP rất nhanh, còn lại thì chả có cách gì nữa đâu (ngoại trừ chơi gian nhờ CTV tick hộ)

9 tháng 2 2018

trả lời đúng, nhanh thì sẽ dc bạn nhé