Viết chương trình nhập vào 1 số nguyên a. cho biết số chẵn liền trước và số lẻ liền kề sau số nguyên a đó? Viết bằng Pascal !!!
2 câu trả lời
program sksk;
uses crt;
var a : integer;
begin
clrscr;
write('nhap so nguyen a :');readln(a);
if a mod 2 = 0 then
begin
writeln('so chan lien truoc cua ', a ,' la : ', a - 2);
writeln('so le lien sau cua ', a ,'la : ', a + 1);
end;
if a mod 2 <> 0 then
begin
writeln('so chan lien truoc cua ', a ,' la :', a - 1);
writeln('so le lien sau cua ', a ,' la :', a + 2);
end;
readln
end.
uses crt;
var a,b,c:integer;
begin
write('nhap a:');readln(a);
if (a mod 2)=0 then
begin
b:=a-2;
c:=a+1;
writeln('So chan lien trc:',b);
writeln('So le lien ke sau:',c);
end else
begin
b:=a-1;
c:=a+2;
writeln('So chan lien trc:',b);
writeln('So le lien ke sau:',c);
end;
readln;
end.
