a, var start , begin : real ;

( tên biến không được trùng với từ khóa)

=> var start, biến bất kì (vd: a, b, c..):real;

b, const x : = 3 . 14 , y : 1000 ;

( khai báo hằng phải dùng dấu "=", giữa các hằng phải được ngăn cách = dấu chấm phẩy)

=> const x=3.14; y=1000;

c, var a : 5 ;

(khai báo biến là khai báo kiêu dữ liệu của biến chứ không khai báo giá trị của biến)

=> var a: kiểu dữ kiệu bất kì (vd: integer, real,...);

d, const ten lop = ' 8a2 ' ;

(tên hằng không được chứa ký tự đặc biệt);

=> const ten_lop (tenlop) = '8a2';

e, var xep _ loại , diem : integer , real ;

(tên biến không được chứa ký tự đặc biệt và không có dấu, không được khai báo 1 biến mà nhiều kiểu dữ liệu)

=> var xep_loai, diem:integer (real) ;

f, var nguyen 1 , nguyen 2 , : integer , thuc 1 , thuc 2 , : real ;

( tên biến không được chứa ký tự đặc biệt, dư dấu phẩy, giữa các kiểu khai báo biến phải ngăn cách = dấu chấm phẩy)

=>var nguyen1 (nguyen_1), nguyen2 (nguyen_2) : integer; thuc1( thuc_1), thuc2 (thuc_1) : real;

g, const 3 ban = ' Phan ' , ' Tuan ' , ' Thanh ' ;

(tên hằng k được bắt đầu = chữ số, các giá trị phải ghi chung chứ k ghi riêng)

=> const ten3ban = 'Phan, Tuan, Thanh';

h, const tên _ nhom = Tin hoc ;

( tên hằng không chứa ký tự đặc biệt và không có dấu, giá trị là chữ thì phải đặt trong dấu ' ')

=>const ten_nhom='Tin hoc';

chúc bạn học tốt!!

vì dùng writeln thì khi in ra con trỏ sẽ tự động xuống dòng còn write thì không. việc đó giúp cho các dữ liệu in ra dễ coi và không bị lẫn lộn vào nhau. theo mk nghĩ là z

program bt;

uses crt;

var n,i,x:integer;

begin

clrscr;

write('nhap n:');readln(n);

while (n<=0) do

begin

write('nhap lai n:');readln(n);

end;

x:=1;

for i:=1 to n do

x:=x*i;

write('x=',x);

readln;

end.

chúc bạn học tốt!

ko biết bạn ghi đúng đề không nhưng theo mình tính theo đề bài thì
=10009999999999999999999999999999999999999999999999999999999999999999998

Tính các tích phân sau:  ∫ 0 π 2 cos 5 b - sin 5 b d b

1) 141

2) 50

3)2700

4) 32

5) 128

6) 6

7) 20140

8) 2570

9) 10

10) 30

ban co the ve thu ket qua cho mk coi dc k?

hiệu là:

39*1+1=40

số lớn là:

(2014+40):2=1027

**** nha ,avatar của bạn nhìn xinh ghê!

1,2,3,6,9,18 tích nhé!!!!!!!

program tong_chan;

uses crt;

var i,tong:integer;

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

begin

clrscr;

writeln('nhap vao 10 so nguyen duong');

for i:=1 to 10 do

begin

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

while a[i]<=0 do

begin

write('nhap lai a[',i,'] la so nguyen duong:');

readln(a[i]);

end;

end;

tong:=0;

for i:=1 to n do

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

if tong= 0 then write('khong co so nguyen duong chan')

else write('tong cua ca so nguyen duong chan la:',tong);

readln;

end.

chúc bạn học tốt!!