Tin học Viết chương trình pascal

[Phuonghanhanh]

[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 cho bài toán sau
Tính tổng S= 2+4+......+2n
Với n nhập từ bàn phím

 

[Lăng Sóc]

program tt;

uses crt;

var j,k,i,n:integer;

s:real;

begin

clrscr;

repeat

write('Nhap n=');readln(n);

if n>=1 then break;

writeln('Hay nhap n>=1');

until false;

s:=0;

for i:=1 to n do

s:=s+2*i;

writeln('Tong: ',s:4:2);

readln

end.