Câu 2 :

program bai2;

uses crt;

var n :integer;

begin

clrscr;

writeln(' ');

writeln(' TIM GIA TRI TUYET DOI CUA MOT SO');

writeln(' ');

write(' Ban hay nhap so n = ');

readln(n);

if n>0 then writeln('Gia tri tuyet doi cua ',n,' = ',n);

if n<0 then writeln('Gia tri truye doi cua ',n,' = ',n*-1);

readln

end.

1:

uses crt;

var a:integer;

begin

clrscr;

write('a='); readln(a);

if a>0 then writeln(a,' la so duong');

if a<0 then writeln(a,' la so am');

if a=0 then writeln(a,' khong la so duong cung khong la so am');

realdn;

end.

2:

uses crt;

var x:longint;

begin

clrscr;

write('nhap x='); readln(x);

if x mod 2=0 then writeln(x,' la so chan');

if x mod 2=1 then writeln(x,' la so le');

readln;

end.

3:

ước chung lớn nhất: UCLN(a,b);

chạy 1 vòng lặp chưa biết trước (repeat hoặc while) với đk dừng là b=0

trong vòng lặp đó có các lệnh:

r:=a mod b;

a:=b;

b:=r;

bội chung nhỏ nhất: BCNN(a,b)=\(\frac{a\cdot b}{ucln\left(a,b\right)}\)

program baicuaban;

Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write('Nhap so phan tu n:');
ReadLn(n);
For i:=1 to n do
Begin
Write('a[',i,']=');
ReadLn(a[i]);
End;
For k:=1 to (n-1) do
For i:=1 to (n-1) do
If a[i] > a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
WriteLn('Mang da sap xep:');
For i:=1 to n do write(a[i],' ');
WriteLn;
Write('nhap vao so X :');
ReadLn(X);
i:=1;
While (x>a[i]) and(i<=n) do i:=i+1;
For k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
Write('Mang da chen X:');
For i:=1 to n+1 do write(a[i],' ');
ReadLn;
End.

CHÚC BẠN HỌC TỐT.sai hãy liên hệ với mình, đúng tick cho mình nha

program baicuaban;

Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write('Nhap so phan tu n:');
ReadLn(n);
For i:=1 to n do
Begin
Write('a[',i,']=');
ReadLn(a[i]);
End;
For k:=1 to (n-1) do
For i:=1 to (n-1) do
If a[i] > a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
WriteLn('Mang da sap xep:');
For i:=1 to n do write(a[i],' ');
WriteLn;
Write('nhap vao so X :');
ReadLn(X);
i:=1;
While (x>a[i]) and(i<=n) do i:=i+1;
For k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
Write('Mang da chen X:');
For i:=1 to n+1 do write(a[i],' ');
ReadLn;
End.

program Khai_bao;

uses CRT;

var a, b:longint;

begin

clrscr;

write('Hay nhap chieu dai');

readln(a);

write('Hay nhap chieu rong');

readln(b);

if (a=0) and (b=0) then

begin

writeln('Loi, khong thuc hien phep tinh');

readln;

end

else

if (a>0) and (b>0) then

begin

writeln('Chu vi hinh chu nhat la ',(a+b)*2);

writeln('Dien tich hinh chu nhat la ',a*b);

readln;

end.

Giải thuật:

TONG.INP gồm 1 số N

- Trước hết cộng số lẻ từ 1 đến N (có được tổng S), thực hiện vòng lặp S:=S+i;

- Sau đó tiến hành cho i chạy từ 2 đến N kiểm tra điều kiện số chẵn, thực hiện S:=S-j;

Write(S); ra để xuất vào file TONG.OUT

xin lỗi là ở gạch đầu dòng thứ 2 mình có ghi sai, bạn sửa lại là "Sau đó tiến hành cho j chạy..."

sai vì hệ lệnh có nhiều hơn 1 lệnh nên phải bỏ trong cặp từ khóa begin end

*t lớp 9 nên... =))

m:=n thiếu chấm phẩy cuối câu lệnh bạn nhé, mình nhớ bài này trong SGK là có chẩm phẩy ở cuối. Nếu có chẩm phẩy cuối thì cú pháp không sai, mà sai ở ngữ nghĩa câu lệnh, tức chỉ thực hiện được a:=b (vì điều kiện chỉ thực hiện được 1 câu lệnh. Cách sửa:

if x >8 then begin a:=b; m:=n; end;

B1: Cho i chạy từ 1 đến 50 thực hiện công việc: S:=S+1/i;

B2: Xuất tổng S

B3: Kết thúc

var

a:array[1..100] of integer;

i,t:integer;

Begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do

ì a[i]>0 then t:=t+a[i];

write(t);

readln

end.