Những câu hỏi liên quan
Ho Truong Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 14:53

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s);

readln;

end.

Bình luận (0)
depgaiqua
Xem chi tiết
Minh Lệ
26 tháng 2 2021 lúc 17:09

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

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

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:24

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

Bình luận (0)
NHÓC BOSS GAMING
Xem chi tiết
Me God
16 tháng 3 2023 lúc 20:28

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

Bình luận (1)
Phạm Tạ Thảo Nguyên 8c
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:26

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

writeln(t);

readln;

end.

Bình luận (0)
Võ Hoàng Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 6 2020 lúc 15:26

var s,n:integer;

begin

s:=0;

n:=1;

while s<=100 do

begin

s:=s+n;

n:=n+1;

end;

writeln('So n nho nhat de tong>100 la: ',n);

writeln('Tong dau tien >100 la: ',s);

readln;

end.

Bình luận (0)
Bùi Jessica
Xem chi tiết
Trần Nguyễn Hoàng Nam
Xem chi tiết
ttanjjiro kamado
24 tháng 3 2022 lúc 17:14

program  bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin 

           Clrscr ; 

          write('Nhap so N=');

          readln(N);

          writeln;
          write ('Bang nhan',N) ;

          writeln;

           for i:=1 to 10 do

          writeln(N,'x',i:2,'=',N*i);

          readln ;

          End.

Bình luận (0)
ttanjjiro kamado
24 tháng 3 2022 lúc 17:14

đau tay

Bình luận (0)
Minh Lệ
24 tháng 3 2022 lúc 17:34

Chương trình sau khi sửa lỗi:

Program bang_cuu_chuong;

Uses crt;

Var N: real;

      i: integer;

Begin

clrscr;

write('Nhap so N=');readln(N);

writeln;

writeln('Bang nhan ',N);

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N);

readln

end.

Bình luận (0)
Thị Thảo Ly Hoàng
Xem chi tiết
Thanh Phong (9A5)
13 tháng 3 2023 lúc 11:59

Program câu 1;

Var n: Integer; s:real;

Begin

Writeln(‘ Nhap gia tri n=’); Readln(n);

S:=0;

While n<0 do

begin

s:=s+n/2; n:=n-1;

end;

write(‘tong s = ‘, s:8:2);

Readln;

End.

Bình luận (0)
Minh Lệ
13 tháng 3 2023 lúc 12:26

Lỗi sai:

Program câu 1; -> Tên chương trình không chứa dấu cách trắng.

-> Sửa: Program cau_1;

Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n

-> Sửa: 

Writeln(‘ Nhap gia tri n=’); Readln(n);

While n >0 do

s:=s+n/2; n:=n-1;

Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con. 

-> Sửa 

While n >0 do

begin

s:=s+n/2; n:=n-1;

end;

 

Bình luận (0)
Ba chú heo con
Xem chi tiết