Program Nhap;
Uses Crt;
Var N: Integer;
Begin
Repeat
writeln('Nhap N:'); Readln(N);
until N=-1;
write('CT ket thuc');
readln
End.

Câu 3:
a) S:=0;i:=1;
While S<100 do
Begin S:=S+1;
i:=i+2;
end;

b) For i:=1.2 to 5.7 do (Sai)
-> giá trị đầu, giá trị cuối phải là số nguyên
- S:=S+i;

S=9

d

Var S,N,i:Integer;
begin
Write('Nhap N='); Readln(N);
S:=0;
i:=0;
While S<=N do
begin
i:=i+1;
S:=S+i;
End;
Writeln('S=',S);
Readln
End.

Tại sao nhân dân liên xô xây dựng thắng lợi chủ nghĩa xã hội chỉ trong 10 năm từ 1925-1937?

Cho tam giác ABC nhọn. Về bên ngoài tam giác vẽ tam giác ABD và ACE vuông cân tại A.
1. Cmr: Trung tuyến AM của tam giác ABC vuông góc với DE.
2. Đường cao AH của tam giác ABC đi qua trung điểm của DE.