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.
1. program b1 ;
var i,n :integer ;
begin
tong:=0;
for i:= 1 to 200 do n:=n+i;
write('Tong 200 so nguyen dau tien la :',n);
readln
end.
2. program b2 ;
var i,t: integer;
begin
t:=1;
for i:= 1 to n do t:=t*i;
write('Tich 30 so nguyen dau tien la : ',t);
readln
end.
3. program b3;
var n,i : integer ;
begin
write('n='); readln(n);
n:=1;
for i:= 1 to n do n:=n*i; write('n!=',n);
readln
end.
4. program b4;
var i,n,x:integer;
lt:longint;
begin
write('nhap x='); readln(x);
write('nhap n='); readln(n);
lt:=1;
for i:=1 to n do lt:=lt*x;
write(x,'^',n,'=',lt);
readln
end.
Đoạn chương trình 1:
j=7
k=10
Đoạn chương trình 2:
j=7
k=28
a. Hợp lệ
b. Không hợp lệ (vì 3242 là số mà X là biến kiểu xâu )
c. Hợp lệ
d. Không hợp lệ (vì -3242 là số mà X là biến kiểu xâu )
Bài 1:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=0 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan nho hon hoac bang ',n,' la: ',t);
readln;
end.
Bài 2:
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n=');readln(n);
until n>0;
dem:=0;
for i:=0 to n do
if i mod 3=0 then inc(dem);
writeln('So so chia het cho 3 nho hon hoac bang ',n,' la: ',dem);
readln;
end.
Bài 3:
uses crt;
var a:real;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
a:=0;
for i:=1 to n do
a:=a+1/(i*(2*i+1));
writeln('Ket qua la: ',a:4:2);
readln;
end.
Bài 4:
uses crt;
var n,i,kt:integer;
begin
clrscr;
Repeat
write('Nhap n='); readln(n);
Until n>1;
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
program dgv;
uses crt;
var x,y,z,n,i: integer;
p,S,A: real;
begin
clrscr;
writeln('Nhap x: '); read(x);
writeln('Nhap y: '); read(y);
writeln('Nhap z: '); read(z);
writeln('Nhap n: '); read(n);
if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');
if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');
if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');
if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');
if n mod 3 <> 1 then writeln('Tong khong co quy luat') else
begin
S:=0;
for i:= 0 to (n-1)/3 do
S:= S+(3i+1);
writeln('S = ',S);
A:=0;
p:=1;
for i:=1 to n do
begin
p:= p*(x/(x+y));
A:=A+p;
end;
writeln('A = ',A);
readln
end.
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.