viết chương trình nhập vào chiều cao hai bạn A và B.Kiểm tra bạn A cao hơn bạn B hay bạn B cao hơn bạn A hay cả hai bạn bằng nhau?
-Nhanh nha mọi người làm ơn :P và cảm ơn
Mô tả thuật toán: Nhập chiều cao của hai bạn Long và Trang. Hãy cho biết kết quả so sánh chiều cao của hai bạn, chẳng hạn "Long cao hơn Trang"," Trang cao hơn Long" hay "hai bạn bằng nhau".
Viết chương trình nhập vào chiều cao của 2 bạn Long và Trang. So sánh chiều cao rồi in ra màn hình bạn nào cao hơn.
program Chieu_cao;
uses crt;
var Long, Trang : integer;
begin
writeln('Nhap chieu cao cua Long (Duoi dang cm)');
readln(Long);
writeln('Nhap chieu cao cua Trang (Duoi dang cm)');
readln(Trang);
if Long > Trang then writeln('Long cao hon Trang')
else writeln('Trang cao hon Long);
end.
#AeMZn
program Chieu_cao;
uses crt;
var Long, Trang : integer;
begin
writeln('Nhap chieu cao cua Long (Duoi dang cm)');
readln(Long);
writeln('Nhap chieu cao cua Trang (Duoi dang cm)');
readln(Trang);
Câu 1 : Cho chiều cao hai bạn Nam và Linh . Em hãy viết chương trình in ra chiều cao của bạn có số đo cao hơn
Câu 2 : Nhập N . Viết chương trình tính tích các chữ số tự nhiên từ 1 đến N
Câu 3 : Nhập N . In ra bảng cửu chương N
Câu 1:
program chieu_cao;
uses crt;
var Nam, Linh: real;
begin
clrscr;
write ('Nhap chieu cao cua Nam:'); readln (Nam);
write ('Nhap chieu cao cua Linh:'); readln (Trang);
if Nam > Linh then writeln ('Ban Nam cao hon');
if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');
readln
end.
Câu 2:
program Tich;
var N,i: interger;
P: longint;
begin
write ('N='); readln (N);
P:=1;
for i:=1 to N do P:=P*i;
writeln (N,' ! = ',P);
readln
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
readln(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
viết chương trình nhập vào chiều cao 3 bạn kiểm tra và sắp thông báo bạn nào cao nhất trong 3 bạn đó, nếu 3 bạn đó cao bằng nhau thì thông báo 3 bạn bằng nhau, ngược lại thông báo không có người cao nhất
=-= giúp mình làm nhanh với vì mai kiểm tra rồi
var a,b,c,h:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
h:=a;
if b>h then h:=b;
if c>h then h:=c;
if (a=c) and (a=b) then writeln(' Chieu cao 3 ban bang nhau va khong co nguoi cao nhat ')
else writeln(' Ban cao nhat la : ',h);
readln;
end.
1. Viết CT nhập 3 số dương a,b,c từ bàn phím, Kiểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là 3 cạnh của 1 tam giác hay không.
2. Viết CT nhập chiều cao của 2 bạn A và B, in ra màn hình KQ so sánh chiều cao của 2 bạn. A cao hơn B hoặc A thấp hơn B hoặc A = B.
1)var a,b,c:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b>c) or (a+c>b) or (b+c>a) then writeln(' la 3 canh cua tam giac ')
else writeln(' khong phai la 3 canh cua tam giac ');
readln;
end.
2) var a,b:integer;
begin
write(' Chieu cao ban A: ');readln(a);
write(' Chieu cao ban B: ');readln(b);
if a=b then writeln(' Chieu cao 2 ban bang nhau ');
if a>b then writeln(' Ban A cao hon ban B')
else writeln(' Ban B cao hon ban A ');
readln;
end.
Hai bạn Bình và An cùng viết số TN a dưới dang a=b.q+r.Bạn An viết a=18.q+6, bạn Bình viết a=42.b+5
Chứng minh 1trong2 bạn có 1 bạn viết sai
Giúp mình nhanh nha . Cảm ơn mọi người!
Giả sử hai số đều đúng ta có : \(18q+6=42b+5\)
\(\Leftrightarrow42b-18q=1\)
\(\Leftrightarrow6\left(7b-3q\right)=1\Rightarrow7b-3q=\frac{1}{6}\)
Do q, b đều là các số tự nhiên nên không xảy ra trường hợp 7b - 3q là phân số.
Vậy giả sử vô lý hay một trong hai bạn phải viết sai.
viết chương trình nhập vào ds a gồm n phần tử là tên và chie cao của hs trong lớp in ra bạn có chiều cao lớn nhất bé nhất(yêu cầu tên và chiều cao) giúp em với đng kiểm tra
a = [ ]
n = int(input('Nhập số lượng học sinh: '))
# Nhập thông tin học sinh
for i in range(n):
name = input('Tên học sinh: ')
height = float(input('Chiều cao: '))
a.append([name, height])
# Tìm học sinh có chiều cao lớn nhất và bé nhất
max_height = 0
min_height = float('inf')
max_name = ''
min_name = ''
for i in range(n):
if a[i][1] > max_height:
max_height = a[i][1]
max_name = a[i][0]
if a[i][1] < min_height:
min_height = a[i][1]
min_name = a[i][0]
# In ra bạn có chiều cao lớn nhất, bé nhất
print('Học sinh có chiều cao lớn nhất là:', max_name, 'với chiều cao', max_height, 'm')
print('Học sinh có chiều cao bé nhất là:', min_name, 'với chiều cao', min_height, 'm')
Người ta xếp hai hình thoi bằng nhau thành một hình bình hành
A,diện tích hình bình hành
b,diện tích mỗi hình thoi.
có chiều cao là 18cm, cạnh hình bình hành là 20cm
các bạn làm nhanh hộ mình nhé!Cảm ơn các bạn nhé