Cho a có giá trị là 5 và b có giá trị là 11 Nếu a chia hết cho 5 thì tăng giá trị a lên 5 đơn vị. Nếu b chia hết cho 3 thì giảm b xuống 1 đơn vị. In giá trị a và b ra màn hình
2 câu trả lời
var a,b:integer;
begin
a:=5;
b:=11;
if (a mod 5 = 0) then a:=a+5;
if (b mod 3 = 0) then b:=b-1;
write(a,' ',b);
readln;
end.
program bai_giai;
uses crt;
var a,b:byte;
begin
clrscr;
a:=5; b:=11;
if a mod 5=0 then a:=a+5;
if b mod 3=0 then b:=b-1;
write('a = ',a,' va b = ',b);
readln;
end.
mod là chia lấy phần dư
chia hết cho k là mod k=0
Câu hỏi trong lớp
Xem thêm