Tin học tin học

[qưẻtyuio]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết phương trình tính tổng các số chẵn nhỏ hơn 100

 

[Axiore_Ro]

viết phương trình tính tổng các số chẵn nhỏ hơn 100

Var i : integer;
S : real;
Begin
For i:=1 to 100 do
S:=0;
If i mod 2 = 0 then S := S+ i;
Write (S);
Readln;
End.