Bài 1.Viết chương trình kiểm tra 2 số có phải là ước của nhau không?
Bài 2.Viết chương trình kiểm tra 1 năm có phải là năm nhuận hay không?
MỌI NGƯỜI GIÚP MIK VỚI !MIK CẢM ƠN Ạ????????♡♡
Bài 1.Viết chương trình kiểm tra 2 số có phải là ước của nhau không? Bài 2.Viết chương trình kiểm tra 1 năm có phải là năm nhuận hay không? MỌI NGƯỜI
By Kennedy
Bài 1
var a, b: integer
begin
Write (‘Nhap so a:`); readln (a);
Write (‘Nhap so b:’); readln (b);
If a mod b = 0 then write (‘b la uoc cua a’);
If b mod a = 0 then write (‘a la uoc cua b’);
If (a mod b <> 0) or (b mod a <> 0) then write (‘Hai so khong phai uoc cua nhau’);
readln
end.
Bài 2
var nam: integer;
begin
Write (‘Nhap nam can kiem tra:’); readln (nam);
If nam mod 4 = 0 then write (‘Day la nam nhuan’);
If nam mod 4 <> 0 then write (‘Day khong phai nam nhuan);
readln
end.
@vietkiku
program bai1;
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap so thu nhat: ‘); readln(a);
write(‘NHap so thu hai: ‘); readln(b);
if a mod b=0 then write(b,’ la uoc cua ‘,a)
else if b mod a=0 then write(a,’ la uoc cua ‘,b)
else write(‘khong la uoc cua nha’);
readln
end.
program bai2;
uses crt;
var n:longint;
begin
clrscr;
write(‘Nhap nam: ‘); readln(n);
if n mod 4=0 then write(‘Day la nam nhuan’)
else write(‘Day khong phai nam nhuan’);
readln
end.