Khi sử dụng thủ tục cần khai báo thủ tục một lần và gọi nó trong thân chương trình mỗi khi muốn sử dụng.

C,for i:=1.5 to 10 do m:=m+1;

program bai1;

var m,n,i:Longint;

begin

wriute('M= ');readln(m);

repeat

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

until n>=m;

s:=0;

for i:=m to n do

if (i mod 3=0) and (i mod 5=0) then s:=s+i;

write('S= ',s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

uses crt;
var a,b,c,d: integer;
begin
clrscr;
readln(a);
readln(b);
readln(c);
readln(d);
readln
end.

⇒
Chương trình sẽ in 4 số mình đã nhập từ bàn phím

⇒
Chương trình sẽ đợi cho tới khi mình nhập 4 số nguyên và nhấn phím Enter để kết thúc chương trình

uses crt;
var a,b,c,d: integer;
begin
clrscr;
    readln(a);
    readln(b);
    readln(c);
    readln(d);
    readln
end.

⇒⇒ Chương trình sẽ in 4 số mình đã nhập từ bàn phím

⇒⇒ Chương trình sẽ đợi cho tới khi mình nhập 4 số nguyên và nhấn phím Enter để kết thúc chương trình

- Không đăng tải những nội dung vi phạm pháp luật, các thông tin xúc phạm danh dự, nhân phẩm ảnh hưởng đến quyền và lợi ích hợp pháp của các tổ chức, cá nhân khác; sử dụng ngôn ngữ phản cảm, vi phạm thuần phong mỹ tục; tung tin giá, tin sai sự thật; quảng cáo, kinh doanh dịch vụ trái phép..

uses crt;
var j,tg,max,i,n:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=i;
write('Vi tri phan tu *** nhat la: ',max); writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');
readln
end.

Program hotrotinhoc_hoc24;

var i: integer;

t: longint;

begin

t:=0;

for i:=1 to 1000 do

if t=<1000 then t:=t+i else break;

write('Tong n so dau tien nho hon hoac bang 1000 la : ',t);

readln

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=0 to n-1 do

t:=t+i;

writeln('tong cua ',n,' so tu nhien dau tien la: ',t);

readln;

end.

program tinh_tong;

uses crt;

var i,n,t:integer;

a:array[1..100]of 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 cua day la: ',t);

t:=0;

for i:=1 to n do

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

writeln('tong cac so chan la: ',t);

readln;

end.

đề bài ạ

Câu 1:

Đoạn trích trên được trích trong tác phẩm Truyện Kiều – đoạn trích Chị em Thúy Kiều. Tác giả Nguyễn Du

Câu 2:

Cách giải: Hai nhân vật được nhắc đến trong câu thơ: Thúy Kiều và Thúy Vân.

Câu 3:

Hai câu văn đầu liên kết bằng phép lặp. Từ ngữ liên kết là từ “ông”

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i]>0 then inc(dem);

writeln(dem);

readln;

end.

- Nội dung: Đoạn thơ nói riêng và bài thơ nói chung đã thể hiện lòng thành kính và niềm xúc động sâu sắc của tác giả và mọi người dân đối với Bác khi vào lăng viếng Người.

- Nghệ thuật: Bài thơ có giọng điệu trang trọng và tha thiết, nhiều hình ảnh ẩn dụ đẹp, gợi cảm xúc, ngôn ngữ thơ bình dị.

uses crt;

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

i,n:integer;

begin

clrscr;

n:=10;

for i:=1 to n do

begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Add more exercises

Đề bài đâu ạ

XI)

71.We can take our old toys to a charity

72.We can take our old boxes, wrapping papers and greeting cards to a local school

74.We can take our old magazines to a local doctors offices

73.We can take our old newspapers to pet shops

75.We can take our plastic bags to supermakets

“Never, never, never give up” - Winston Churchill

The Brooklyn Bridge across the river between the two cities of Manhattan and Brooklyn must be said is Unknown for the built-in.

In 1883, an inventive engineer named John Roebling was pleased to come up with the idea of ​​building a botanical bridge across these two cities.

However, when he presented his bold idea, not a single road expert would cooperate with him. They thought he was mad and told him to forget it because it was impossible to make such a tree.

Reluctantly, he went home to convince his son Washington that there was also a tree of technical potential, it could be built to order. Both father and son cherished the desire to complete the bridge and discussed how to overcome all obstacles.

Anyway, the bank believed them and agreed to spend money on the construction project. With great excitement and enthusiasm, they recruited workers and began building their dream claim.

The project went on for a few months when disaster struck. An accident at the construction site took the life of Mr. John Roebling and his son was seriously injured in the head.

After the accident, Washington was unable to walk or speak. Everyone thought that the project would eventually go up in smoke because only the Roeblings were the only ones who understood how to build this bridge.
Although unable to walk or talk, Washington Roebling's mind was still very sharp. One day, lying in the hospital, he suddenly thought of a way to "talk" to other people.

The only movement of his body at the moment was to move a finger and he devised a set of communication codes. With this code, he used his movable finger to type his thoughts into his wife's hand to tell her what to say to the engineers who were still building the bridge.

For 13 years, Washington ordered with his only moving finger until the completion of the magnificent Brooklyn Bridge we see today.