Cho mình xin chương trình máy tính sử dụng lệnh for do

Cho mình xin chương trình máy tính sử dụng lệnh for do

0 bình luận về “Cho mình xin chương trình máy tính sử dụng lệnh for do”

  1. program ct;

    uses crt;

    var s,i,n:integer;

    begin

    clrscr;

    write(‘nhap n:=’);readln(n);

    s:=0;

    for i:=1 to n do s:=s+i;

    writeln(‘tong la:’,s);

    readln

    end.

    chúc bạn học tốt

    cho mình câu trả lời hay nhất nha

    Bình luận

Viết một bình luận