Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap n '); readln(n);
t:=1;
for i:=1 to n do t:=t*2;
write('2^,n,' = ',t);
readln
end.
program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
Số chẵn:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 0 then S:=S+i
Write(S);
Readln
End.
Số lẻ:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 1 then S:=S+i
Write(S);
Readln
End.
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)
. 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);