Bài 1: Hãy xác định bài toán của các bài toán sau:
Viết chương trình nhập vào một số tự nhiên n và in ra màn hình, kết quả số đó là số chẵn hay số lẻ.
Bài 2: Em hãy viết chương nhập vào một số nguyên n và in ra màn hình. n là số dương hoặc số âm
Bài 3: Em hãy xác định bài toán tính tổng các số dương trong dãy A với A ={a1,a2,a3,…..,an}
Bài 4: Viết chương trình nhập vào ba số a,b,c. Kiểm tra xem ba số này có phải ba cạnh của một tam giác hay không.
Giúp mình với mai mình nộp r
Câu 1:
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap so: ‘); readln(n);
if n mod 2=0 then write(n,’ la so chan’)
else write(n,’ la so le’);
readln;
end.
Câu 2:
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap so: ‘); readln(n);
if n>0 then write(n,’ la so duong’)
else write(n,’ la so am’)
readln;
end.
Câu 3:
uses crt;
var a:array[1..10000] of longint;
n,i,s:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
inc(s,a[i]);
end;
write(‘Tong: ‘,s);
readln;
end.
Câu 4:
uses crt;
var a,b,c:extended;
check:boolean;
begin
clrscr;
write(‘Nhap a,b,c: ‘); readln(a,b,c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then begin check:=true; write(‘3 canh vua nhap la 3 canh tam giac’) end
else begin check:=false; write(‘3 canh vua nhap khong phai 3 canh tam giac’) end;
readln;
end.
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write(‘nhap so thu nhat =’); readln(a);
write(‘nhap so thu hai =’); readln(b);
write(‘nhap so thu ba =’); readln(c);
s:=a+b+c;
writeln(‘tong ba so a,b,c =’,s:4:2);
readln;
end.
Vote 5 sao cho mik nha