Bài 1: Khái niệm về lập trình và ngôn ngữ lập trình

program tich_2so;
uses crt;
var c, d: double;
begin
clrscr;
write('Nhap 2 so thuc c va d: ');
readln(c, d);
writeln('Tich cua c va d la: ', c * d:0:3);
end.

Program HOC24;

var x,m,d,d1,n: integer;

t: longint;

begin

write('Nhap M:'); readln(m);

write('Nhap N:'); readln(n);

t:=0; d:=0;

for i:=m to n do

begin

t:=t+i;

if i mod 2=0 then d:=d+1 else d1:=d1+1;

end;

writeln('Tong cac so tu ',m,' den ',n,' la: ',t);

write('Nhap so nguyen: '); readln(x);

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

if x<0 then wirteln(x,' la so am') else writeln(x,' la so duong');

if x mod 3=0 then write(x,' chia het cho 3');

readln

end.

***** Ở đề bạn có ghi là chia hết nhưng không nói số chia hết cho mấy cụ thể, nên mình đã sửa thành chia hết cho 3 nếu chia hết cho khác bạn thay số 3 thành số đó nhé!

*Chương trình tính tổng các số từ m đến n

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

*Chương trình Đếm các số chẵn (lẻ), chia hết cho 3 từ M đến N.

uses crt;

var m,n,i,dem1,dem2:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

dem1:=0;

dem2:=0;

for i:=m to n do 

  begin

if (i mod 2=0) and (i mod 3=0) then inc(dem1);

if (i mod 2<>0) and (i mod 3=0) then inc(dem2);

end;

writeln('So so chan chia het cho 3 la: ',dem1);

writeln('So so le chia het cho 3 la: ',dem2);

readln;

end.

const fi='xsum1.inp'     

fo='xsum1.out'

var f1,f2:text;   

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

i,n,j,x,dem,k,m,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n,x);

for i:=1 to n do 

read(f1,a[i]);

dem:=0;

for i:=1 to n do 

for j:=1 to n do   

begin       

for k:=1 to n do         

if (i<j) and (j<k) then               

begin                 

t:=0;                 

for m:=i to k do                   

t:=t+a[m];                 

if t=x then inc(dem);               

end;   

end;

for i:=1 to n do 

if x=a[i] then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.

program COST;

var n,m,s,dem:int64;a:

array[1..1000000] of int64;

i,j:longint;

begin 

readln(n,m);

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

dem := 0;

for i := 1 to n do

begin

s := 0;

for j := i to n do 

begin 

s := s+a[j];

if s <= m then 

begin 

inc(dem);

continue;

end

else if a[j] > m then break;

end;

end;

write(dem);

end.    

Ai giúp mình câu 2 với ạ

Câu 2: Điểm khó của bài toán chính là số bạn học sinh rất lớn 

uses crt;

var a,b:integer;

begin

clrscr;

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

write('Nhap b='); readln(b);

if a>b then writeln(a)

else if a<b then writeln(b)

else writeln('Hai so bang nhau');

readln;

end.

Câu 1:

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

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

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

   begin

        p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Câu 2: 

uses crt;

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

i,n,t,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu trong day la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

     if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end. 

uses crt;

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

    i,n,t,max,kq,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

     write('A[',i,']='); readln(a[i]);

  end;

max:=0;

for i:=1 to n do

  begin

     t:=0;

     for j:=1 to a[i] do

       if a[i] mod j=0 then t:=t+j;

     if max<=t then

        begin

           max:=t;

           kq:=a[i];

        end;

  end;

writeln('So co tong cac uoc lon nhat trong day la: ',kq);

readln;

end.

Mk nghĩ B nha

B . CS THỂ