Câu 1: Viết cú pháp câu lệnh lặp với số lần chưa biết trước.Nêu hoạt động của câu lệnh .
Câu 2: Viết phương trình pascal tính chu vi và diện tích của hình chữ nhật với hai cạnh đc nhập vào từ bàn phím
Câu 3: Viết phương trình pascal tính tổng các số tự nhiên từ 1 đến 30
Câu 4: Cho bài toán: tìm số tự nhiên n<100 để n^2 +2018 là 1 số chính phương. Em hãy viết phương trình giải bài toán trên.
Câu 1:for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Câu 2:program Hinh_Chu_Nhat;
uses crt;
var r,d: integer; CV,DT:longint;
begin
clrscr;
repeat
write(‘Nhap chieu dai: ‘);
readln(d);
write(‘Nhap chieu rong: ‘);
readln(r);
until (d<100) and (d>0) and (b>0) and (b<100);
DT:=r*d;
CV:=(r+d)*2;
writeln(‘Chu vi hcn la: ‘,CV);
write(‘Dien tich hcn la: ‘,DT);
readln
end.
Câu 3:
program Bai_1_FoToDo;
uses crt;
var n,i :longint; S :qword;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
S:=0;
Bai 4:For i:=1 to 30 do S:=S+i
write(‘Tong cac so tu 1->30 la : ‘,S);
readln;
end.