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. Nhập vào 3 số a,b,c. Tìm số lớn nhất trong 3 số
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
By Margaret
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.
â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.