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