Câu 1. viết chương trình nhập vào số n. Kiểm tra n là số âm hay số dương Câu 2. Viết chương trình nhập vào số n. Kiểm tra n là số chẵn hay lẻ Câu 3. N

0 bình luận về “Câu 1. viết chương trình nhập vào số n. Kiểm tra n là số âm hay số dương Câu 2. Viết chương trình nhập vào số n. Kiểm tra n là số chẵn hay lẻ Câu 3. N”

1. Câu 1

   Program cau1;

   uses crt;

   var n:integer;

   begin

   clrscr;

   write(‘nhap so n =’); readln(n);

   if n> 0 then writeln(‘n la so duong ‘) else

   writeln(‘n la so am ‘);

   readln;

   end.

   Câu 2

   Program Chan_le;

   uses crt;

   var n: integer;

   begin

   clrscr;

   write(‘nhap vao so n =’); readln(n);

   if ( n mod 2 = 0 ) then write(‘ n la so chan ‘)

   else

   write(‘n la so le ‘);

   readln;

   end.

   Câu 3

   program giatrilonnhat;

   var a,b,c,max:integer;

   begin

   writeln(nhap a,b,c=’);

   readln(a,b,c);

   max:=a;

   ì max<b then max:=b;

   if max<c then max:=c;

   writeln(‘gia tri lon nhat la’, max);

   readln

   end.

   Bình luận

2. âu 1 

   1: uses crt;
   var n:integer;
   begin
   clrscr;
   write(‘n=’); readln(n);
   if n>0 then writeln(n,’ la so duong’);
   if n<0 then writeln(n,’ la so am’);
   readln;
   end.

   câu 2 

   var a:integer;

   Begin

   writeln(‘nhap a’); readln(a);

   if a mod 2=0 then write (‘so chan’) else write (‘so le’);

   readln

   end.

   Bình luận