uese crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap so thu nhat:'); readln(a);
writeln('Nhap so thu hai:'); readln(b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('ucln cua a va b la:',a);
readln;
end.
program ct;
uses crt;
var A,B,UCLN:integer;
begin clrscr;
write('Nhap 2 so A va B: '); readln(A,B);
while A<>B do
if A>B then A:=A-B
else B:=B-A;
UCLN:=A;
writeln('Uoc chung lon nhat la: ',UCLN);
Học tốt!
Giải giúp mik với phành nào cũng đc mik đang cần gấp
câu lệnh khai báo biến mảng được thực hiện ở đâu
a)3x-1=x-7 b)7x-21=10x-9 c)3.(x-1)=2(x+4)
Đơn vị của trọng lực là gì Giúp với mọi người ơi
cho tam giác abc vuông tại a có ab = 6cm ac = 8cm trung tuyêbs bm trên tia dối tia mb lấy k sao cho mk = mb a, tính đọ dài cạnh bc b, chứng minh tam giác abm = tam giác ckm c, từ m kẻ mh vuông góc bc chứng minh am > mh
1. suy nghĩ về hiện tượng sử dụng điện thoại tràn lan 2.cảm nhận hai câu thơ sau: chiếc thuyền im bến mỏi trở về nằm nghe chất muối thấm dần trong thớ vỏ" ##KHÔNG CHÉP MẠNG ## ##NGẮN GỌN###
Em hiểu thế nào là thể loại văn học
Mn ơi kẹo nè Ai vẽ cho kẹo mấy iem oc ha Thik thì vẽ avt nick này :)
cho tam giác ABC cân tại A. gọi H là trung điểm của BC a) C/m tam giác ABH= tam giác ACH b) kẻ HK song song AB (K thuộc AC). C/m tam giác AKH cân c) BK cắt AH tại G C/m G là trọng tâm của tam giác ABC tính AG biết AC = 10cm, BC = 12cm
các bạn ơi giúp mình với! Hãy viết một đoạn văn ngắn bạn sẽ làm gì để bảo vệ môi trường bằng tiếng anh. ( 30 đến 50 )
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
