Em cần gắp ạ, Pascal nhe :))))))))))))))) viết chương trình nhập vào 1 số nguyên a. Tìm số chẵn liền trước và số lẻ liền sau của số a ?
2 câu trả lời
uses crt;
var a: longint;
begin
clrscr;
readln(a);
if a mod 2 = 0 then write(a - 2, ' ', a + 1) else
write(a - 1, ' ', a + 2);
readln;
end.
uses crt;
var a,t,s,x,y: integer;
begin
clrscr;
write ('nhap a: '); readln (a);
x:=a;
y:=a;
t:=0;
s:=0;
repeat
y:=y-1;
if y mod 2=0 then t:=y;
until t<>0;
repeat
x:=x+1;
if x mod 2<>0 then s:=x;
until s<>0;
writeln ('So chan lien truoc cua ',a,' la: ',t);
writeln ('So le lien sau cua ',a,' la: ',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
