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.
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.
uses crt;
begin clrscr;
writeln('(spr(5+2))/(3*3+1)=',(spr(5+2))/(3*3+1));
readln
end.
1
Uses crt;
Var t,n,i:longint;
Begin
clrscr;
write('nhap vào số n: ');readln(n);
while n<1 do readln(n);
for i:=1 to n do t:=t*i;
write('tich tren co ket qua la: 't);
readln;
End.
2(bài này sử dụng mảng nhé)
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
while N<1 do readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('so lon nhat trong day N:', Max);
Readln;
End.
3
Uses crt;
Var a:array[1..20]of integer;i,N,max,min:integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]=’);readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; For i:=1 to N do
Begin
If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
End;
Writeln('Day so vua nhap la: '); Writeln('————————-'); For i:=1 to N do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min);
Readln;
End.
kiểm tra xem đúng ko nhé!
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
1.
a) (1/(b+a))*(a*a+c)=5
b) k*k+(k+1)*(k+1)<>(k+2)*(k+2)
c) 8*x-7>1
d) b*2-4*a*c>=0
2.
Bước 1. Nhập 2 số a và b bất kì.
Bước 2. SUM ß a+b.
Bước 3. Thông báo giá trị của SUM và kết thúc thuật toán.
3.
Bước 1. Nhập N
Bước 2. SUM ß 0; i ß 0.
Bước 3. SUM ß SUM + i.
Bước 4. i ß i + 1.
Bước 5. Nếu i N, thì quay lại bước 3
Bước 6. Thông báo giá trị của SUM và kết thúc thuật toán.
4.
program tinh_dien_tich_tam_giac;
uses crt;
var a,h : interger;
S : real;
begin
clrscr;
write(‘Nhap do dai canh day la: ’);
readln (a);
write(‘Nhap do dai chieu cao la: ’);
readln(h);
S:=(a*h)/2;
writeln(‘Dien tich hinh tam giac la: ’,S:4:1);
readln;
end.
Còn lại tự giải nha 
Bạn ơi câu b điều kiện bạn cho là \(0\le n\le10\) sao lại thêm 1 điều kiện nữa là x>0
Var i,p:integer;
Begin
i:=0;
p:=1;
While p<=120 do
Begin
i:=i+1;
p:=p*i;
End;
Write('So can tim la ',i);
Readln;
End.