Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Alice
Xem chi tiết
CHU VĂN AN
Xem chi tiết
Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 6:31

. Cấu trúc thủ tục nhập dữ liệu từ bàn phím:

Read(<danh sách biến vào>);

Readln(<danh sách biến vào>);

Cấu trúc thủ tục in dữ liệu ra màn hình: Write(<danh sách kết quả ra>); Writeln(<danh sách kết quả ra>);

Ví dụ:Write('Nhap so a:');

Readln(a);

Snsbbdbd Xnxb
Xem chi tiết
Kiều Vũ Linh
13 tháng 5 2023 lúc 8:57

Var i,n:integer;

Begin

Write('n = ');readln(n);

Write('Day so tu 1 den ',n,' la ');

For i:=1 to n do write(i:8);

Readln

End.

nana
Xem chi tiết
neon
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 20:30

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

Minh Lệ
7 tháng 3 2023 lúc 21:22

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

i:=0; s:=0;

while i<n do

begin

i:=i+1;

s:=s+i*(i+1);

end;

write('S=',S);

readln

end.

foxbi
Xem chi tiết
Kiều Vũ Linh
18 tháng 3 2023 lúc 7:55

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

HA LE
Xem chi tiết
Minh Lệ
11 tháng 4 2019 lúc 21:15

Lời giải :

program hotrotinhoc ;

var S,n,i : integer ;

begin

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

for i:= 1 to n do S:=S+i*(i+1) ;

write('S=',S);

readln

end.

Trần Phương Thảo
2 tháng 3 2020 lúc 21:43

Var n,S,i:longint;

Begin

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

S:=0;

For i:=1 to n do S:=S+n*(n+1);

writeln(S);

Readln

End.

Khách vãng lai đã xóa
Anh Duc
Xem chi tiết
Đào Tất Thắng
Xem chi tiết
Phía sau một cô gái
16 tháng 3 2023 lúc 21:24

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)