(free pascal)Nhập từ bàn phím 2 số nguyên dương X và Y (1<=X, X<Y<105) In lên màn hình các kết quả sau, mỗi kết quả trên một dòng: - Chữ số tận cùng của số Y trong hệ thập phân. - Tổng X và Y - UCLN của X và Y
2 câu trả lời
Mik chỉ làm 2 ý sau do ý đầu mik ko hiểu đề yêu cầu gì cả nên thứ lỗi nha
program Tin_hoc;
uses crt;
var x,y,i,UCLN:integer;
begin
clrscr;
write('Nhap X: ');readln(x);
write('Nhap Y: ');readln(y);
writeln('Tong cua X va Y la: ',x+y);
if x>=y then for i:= 1 to y do if (x mod i = 0) and (y mod i = 0) then UCLN:=i;
if x<=y then for i:= 1 to x do if (x mod i = 0) and (y mod i = 0) then UCLN:=i;
writeln('UCLN cua X va Y la: ',UCLN);
readln;
end.
- Chương trình nhập hai số X và Y
uses crt;
var X, Y : integer;
begin
clrscr;
write('nhap hai so X va Y : ');
readln(X, Y);
readln
end.
