a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do t:=t+i;

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

*Cú pháp: While <điều kiện> do <câu lệnh>;
*Trong đó

Cú pháp: While <điều kiện> do <câu lệnh>;

Trong đó:

While, do là các từ khóa

Điều kiện thường là một phép so sánh

Câu lệnh có thể là một câu lệnh đơn hoặc một câu lệnh ghép

Câu lệnh điều kiện:

Dạng thiếu:

If < điều kiện > then < câu lệnh >;

Dạng đầy đủ:

If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2 >;

Lệnh lặp:

Biết trước:

For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;

Chưa biết trước:

while < điều kiện > do < câu lệnh >;

Công thức đọc tên là gì mình ko hiểu @@

Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:

Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á:

Tổng n số tự nhiên đầu tiên:

Var i,n,s:integer;

Begin

Write('n = ');

for i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln

End.

Tích các số từ 5 đến 30

Var i,p:longint;

Begin

p:=1;

For i:=5 to 30 do

P:=p*i;

Write('Tich la ',p);

Readln

End.

Chu vi, diện tích hình chữ nhật:

var a,b,p,s:real;

begin

write('Chieu dai hcn = ');readln(a);

write('Chieu rong hcn = ');readln(b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi hcn la ',p:10:2);

write('Dien tich hcn la ',s:10:2);

readln

end.

------------------------------------------------------------

Chu vi, diện tích hình tròn:

var r,c,s:real;

begin

write('Ban kinh = ');readln(r);

c:=2*3.14*r;

s:=3.14*r*r;

writeln('Chu vi hinh tron la ',c:10:2);

write('Dien tich hinh tron la ',s:10:2);

readln

end.

---------------------------------------------------

Chu vi, diện tích hình thang:

var dl,dn,cb1,cb2,h,p,s:real;

begin

write('Day lon = ');readln(dl);

write('Day be = ');readln(db);

write('Chieu cao = ');readln(h);

write('Canh ben thu nhat = ');readln(cb1);

write('Canh ben thu hai = ');readln(cb2);

p:=dl+db+cb1+cb2;

s:=(dl+db)*h/2;

writeln('Chu vi hinh thang la ',p:10:2);

write('Dien tich hinh thang la ',s:10:2);

readln

end.

program tong_100_so_tu_nhien;

uses crt;

var i, S: integer;

begin

      S := 0;

      for i := 1 to 100 do

            S := S + i;

      writeln('Tong cua 100 so tu nhien dau tien la ', S);

      readln;

end.

Var i,s:integer;

Begin

i:=1;

s:=0;

While i<=100 do

Begin

s:=s+i;

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

Cú pháp: while <điều kiện> do <câu lệnh>;

TRong đó: điều kiện thường là phép so sánh

câu lệnh có thể là đơn hoặc ghép

while do là các từ khóa

cú pháp: \(for< biếnđếm>:=< giátrịđầu>to< giátrịcuối>do< câulệnh>;\)

Trong đó:\(for,to,do\) là từ khoá.

               biến đếm là biến kiểu số nguyên.

               giá trị đầu, giá trị cuối là giá trị nguyên.

Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng    giá trị cuối \(-\) giá trị đầu \(+\) 1

Hoạt động:

Bước 1: Kiểm tra điều kiện 

Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và thực hiện kết thúc câu lệnh và nếu điều kiện đúng thực hiện câu lệnh và quay lại bước 1.

Cú pháp của câu lệnh điều kiện:

if <điều kiện> do <câu lệnh 1>

else <câu lệnh 2>;

Cú pháp của câu lệnh lặp với số lần chưa biết trước:

While <điều kiện> do 

<câu lệnh>;

Cú pháp của câu lệnh lặp với số lần biết trước:

For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;