Màn hình sẽ in ra giá trị: 3 7

Giải thích:

Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.

k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.

Bạn học hết các phần của bài 6,7,8 đi.

Đó là đề cương của trường mình :)

cảm ơn bạn

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

VD

For i:=1 to 10 do

a:=a+1;

*Hoạt động

Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn

Quá trình giải 1 bài toán

- Xác định bài toán:

+ Xác định thông tin đã cho (Input)

+ Thông tin cần tìm (Output)

- Mô tả thuật toán: Tìm cách giải bài toán và diễn tả bằng các lệnh cần phải thực hiện

- Viết chương trình: Dựa vào mô tả thuật toán, ta viết chương trình bằng một ngôn ngữ lập trình

2/

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

Ví dụ

While a>20 do a:=a+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à việc thực hiện câu lệnh lặp kết thúc. 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: Var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>

Trong đó:

-Chỉ số đầu, chỉ số cuối thường là các số nguyên hoặc các kí tự

-Kiểu dữ liệu thường là kiểu số nguyên hoặc kiểu kí tự/chuỗi

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

program tinhtong;

uses crt;

var t,i: integer;

s: longint;

begin

write ( 'Nhap so t' ); readln (t);

s:= 0;

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

writeln ('tong la:' );

readlln

end.

Program Tinhtongsonguyen;
Uses Crt;
Var i, t, Tong: Integer;
Begin
Clrscr;
Writeln('Nhap so t='); Readln(t);
Tong:=0
For i:=1 to t do
Tong:=Tong+i;
Writeln('Ket qua',Tong);
Readln;
End.

a,Thứ tự sắp xếp đúng là 9,10,1,12,11,3,4,5,6,7,8,2,13,14

b,Công dụng để tính tổng các số chẵn lớn hơn 50

nhỏ nha bạn nhầm:<<