Nhờ sự lãnh đạo sáng suốt, kiên quyết với những chính sách đúng đắn, kịp thời, linh động, với lòng yêu nước và sức đoàn kết hăng hái của toàn dân trong và ngoài Mặt trận Việt Minh, cuộc Cách mạng Tháng Tám đã thắng lợi. Bài học quý giá đó đang được phát huy cao độ trong tình hình hiện nay, nhất là phòng, chống dịch COVID-19.

B. Đã giải quyết mục tiêu trước mắt nhằm tiến lên hoàn thành mục tiêu chiến lược

..

Trên máy tính, hãy truy cập vào Gmail.
Nhấp vào Soạn thư.
Ở dưới cùng, hãy nhấp vào biểu tượng Đính kèm  .
Chọn các tệp bạn muốn tải lên.
Nhấp vào Mở.

A. Chưa biết trước

Program Cau2;

Uses crt;

Var i,n,max,min: integer;

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

Begin

Clrscr;

Write(‘ Nhap do dai cua day so, n= ‘);

Readln(n);

Writeln(‘Nhap cac phan tu cua day so: ‘);

For i:= 1 to n do

Begin

Write(‘a[‘, i, ‘]= ‘);

Readln(a[i]);

End;

max:= a[1];

min:= a[1];

For i:= 2 to n do

Begin

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

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

End;

Writeln(‘So *** nhat la max= ‘, max);

Writeln(‘So nho nhat la min= ‘, min);

Readln;

End.

Program tinhtong_binhphuong_sochan;
Uses CRT;
Var S : Longint; i,N : Integer;
Begin
Clrscr;
Write('Nhap N = '); Readln(N);
S:=0;
For i := 1 to N do
    If i mod 2 = 0 then
         S:=S+i*i;
 Write('S= ', S);
readln;
End.

program Tin_hoc;

uses crt;

var i,s:integer;

begin

clrscr;

i:=0;

s:=0;

while i<=100 do

begin

s:=s+i;

i:=i+2

end;

writeln('S=',s);

readln;

end.
 
 

a)

program tien_dien;

uses crt;

var a:longint;

      tiendien:real;

begin

clrscr;

Writeln('Nhap so dien tieu thu cua gia dinh do la : ', a, 'kWh'); readln;

if a<=100 then tiendien:=a*650;

if a<=150 then tiendien:=100*6500+1200*(a-100);

Writeln('so tien dien phai tra la:',tiendien:9:0,' VND');

readln;

END.

b)

Chương trinh sẽ hiển thị lần lượt là:

- Nhap so dien tieu thu cua gia dinh do la : 120 kWh

 - so tien dien phai tra la: 89000 VND

Ví dụ 2: Tuoi[4]=9

Tham chiếu tới phần tử thứ tư của mảng Tuoi

Program Max_Min;

Uses crt;

Var a,b,c,d:integer;

max,min:integer;

Begin

clrscr;

write('nhap so thu nhat :'); readln(a);

max:=a; min:=a;

write('nhap so thu hai :'); readln(b);

ifmax<b>b thenmin:=b;

write('nhap so thu ba :'); readln(c);

ifmaxc then min:=c;

write('nhap so thu tu :'); readln(d);

ifmaxd then min:=d;

writeln('So *** nhat la :',max);

writeln('So nho nhat la :',min);

readln;

End.</b>

uses crt;

var i,n,s:longint;

begin

clrscr;

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

s:=1;

for i:=1 to n do

if i mod 2=1 then s:=s*i;

writeln('tich cac so le tu 1 toi ',n,' la: ',s);

readln;

end.

C. While (điều kiện) do (câu lệnh);

B. 40 tệp

program bt;
uses crt;
var a, b, c,s, p, r: real;
begin
     clrscr;
     write('nhap ba so thuc duong a, b, c= ');
     readln(a, b, c);
     if((a+b)>c)and((a+c)>b) and((b+c)>a) then
             writeln('a, b, c la ba canh cua tam giac')
                     else writeln('a, b, c khong la ba canh cua tam giac');
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('ban kinh duong tron noi tiep tam giac la r:' ,s/p:5:2);
    readln
end.

uses crt;

const fi='so.txt'

var f1:text;

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

n,i:integer;

begin

clrscr;

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

readln(f1,n);

for i:=1 to n do  

  read(f1,a[i]);

for i:=1 to n do 

  write(a[i]:4);

close(f1);

readln;

end.

uses crt;

var n,i:integer;

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

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

Quảng cáo

 

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

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

readln;

end.

uses crt;
var a,b:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x,y:real):real;
begin
chuvi:=(x+y)*2;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m,n:real):real;
begin
dientich:=m*n;
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
until (a>0) and (b>0) and (a>=b);
writeln('Chu vi hinh chu nhat la: ',chuvi(a,b):4:2);
writeln('Dien tich hinh chu nhat la: ',dientich(a,b):4:2);
readln;
end.

Số tiền An bỏ ống heo được là: 150000
Số tuần An bỏ ống heo là: 15 tuần

const fi1='nguyen1.txt'

fi2='nguyen2.txt'

fo='nguyen.txt'

var f1,f2,f3:text;

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

n,m,i:integer;

begin

assign(f1,fi1); reset(f1);

assign(f2,fi2); reset(f2);

assign(f3,fo); rewrite(f3);

n:=0;

while not eof(f1) do 

  begin

inc(n);

readln(f1,a[n]);

end;

m:=0;

while not eof(f2) do 

begin

m:=m+1;

readln(f1,b[m]);

end;

for i:=1 to n do 

 writeln(f3,a[i]);

for i:=1 to m do 

  writeln(f3,b[i]);

close(f1);

close(f2);

close(f3);

end.