Câu 1: Nêu cấu trúc và cách thực hiện của lệnh lặp với số lần chưa biết trước? Câu 2: Sử dụng cấu trúc lặp for...do viết chương trình tính tổng các số chẵn từ 1 tới N với N là số nguyên dương được nhập vào từ bàn phím.

Câu 1: Nêu cấu trúc và cách thực hiện của lệnh lặp với số lần chưa biết trước?

Cấu trúc $\text{While (Điều kiện ) do (câu lệnh) ;} $

$\text{Repeat (câu lệnh) until (điều kiện)}$

Câu 2: Sử dụng cấu trúc lặp for...do viết chương trình tính tổng các số chẵn từ 1 tới N với N là số nguyên dương được nhập vào từ bàn phím.

Program Hotboy;

Uses crt; 

Var s:real;

I,n:integer;

Begin

Clrscr;

Write('nhao so n'); readln(n) ;

For i:=1 to n do 

If i mod 2=0 then

S:=S+i;

Writeln('tong la',S);

Readln

End.