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

ka1412

Học sinh chăm học
Thành viên
24 Tháng mười một 2017
874
730
121
Hà Nội
CNN | Life
Mã:
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.
 
Top Bottom