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

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Phuonghanhanh, 22 Tháng mười 2018.

Lượt xem: 98

  1. Phuonghanhanh

    Phuonghanhanh Học sinh mới Thành viên

    Bài viết:
    48
    Điểm thành tích:
    16
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    Thpt Đan Phượng
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    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
     
  2. Lăng Sóc

    Lăng Sóc Giải Ba "Thử thách cùng Box Hóa 2017" Thành viên

    Bài viết:
    393
    Điểm thành tích:
    174
    Nơi ở:
    Hà Nội

    Mã:
    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.
     
    Phuonghanhanh thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->