viết chương trình(tin 8)

[Nguyễn Trần Gia Linh]

[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 chương trình sử dụng câu lệnh lặp để tính tổng các số chẵn <= n.

 

[ka1412]

uses crt;
var n,i:integer;k:longint;
begin
    write('Nhap n:');readln(n);
    for i := 2 to n do if i mod 2 =0 then k:=k+i;
    write('Tong:',k);
readln
end.