2 câu trả lời
uses crt;
var a,b,t:longword;
begin
clrscr;
readln(a,b);
t:=a*b;
while a<>b do
if a>b then dec(a,b)
else dec(b,a);
writeln(t div b);
readln;
end.
uses crt;
var a,b,x:longint;
begin
clrscr;
read(a,b);
x:=a*b;
while a<>b do
if a>b then dec(a,b) else dec(b,a);
write(x div a);
readln;readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
