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.
Program Vidu;
Uses crt;
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
clrscr;
Writeln('Nhap gia tri cho mang A');
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]); { đọc vào giá trị cho A thứ i}
End;
Write('Danh sach cac phan tu trong mang A: ');
For i:=1 to 10 do
Write(A[i]:5);
Readln;
End.
Bài 2:
Program HOC24;
var a: array[1..200] of integer;
i,d,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 3=0 then d:=d+1;
write('Co ',d,' phan tu chia het cho 3');
readln
end.
Bài 3:
Program HOC24;
var a: array[1..30] of integer;
i,d,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=1;
for i:=1 to n do if a[i] mod 2=0 then d:=d*a[i];
write(Tich cac phan tu chia het cho 2 la: ',d);
readln
end.
bài 1:
uses crt;
var i,t,x:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
begin
x:=sqr(i);
t:=t+x;
end;
writeln('gia tri cua bieu thuc P=1^2+2^2+3^2+4^2+5^2+...+10^2 la: ',t);
readln;
end.
Program hotrotinhoc;
var x,n,i,j: integer;
t: longint;
function mu(k,m: integer): longint;
var s: longint;
l: integer;
begin
s:=1;
for l:=1 to m do
s:=s*k;
mu:=s;
end;
begin
t:=0;
write('X='); readln(x);
write('N='); readln(n);
for i:=1 to n do
t:=t+mu(x,i);
write(t);
readln
end.
uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.
mình chuyển luôn nhé
a, (x*x+y)/(x*y)
b, 1/2 sin( sqrt(sqr(x)+sqr(y)))
chỗ này bạn làm dấu căn mình k hiểu mấy
c, sqrt(2*x)+sqrt(2*x)+sqrt(2*x)
hoặc là: 3*sqrt(2*x)
Ý C là : \(\sqrt{2x+\sqrt{2x+\sqrt{2x}}}\)