Đề: Nhập số nguyên N, tính tổng các số từ 1 ----> N S=1+2+3+4+5 GIÚP MÌNH VỚI Ạ

2 câu trả lời

program ct;

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

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

writeln('tong la:',s);

readln

end.

$#Zen$

uses crt;
var n:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  write('s=',(n+1)*n div 2);
 readln
end.

Câu hỏi trong lớp Xem thêm