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 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.
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.
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)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('tong la: ',s);
readln;
end.
Program xuatmatranxoanoc;
uses crt;
var a:array[1..100,1..100] of Integer;
d,i,j,n:integer;
Begin
clrscr;
d:=0;
i:=0;
write('Nhap n:'); readln(n);
repeat
i:=i+1;
for j:=i to n-i do
begin
d:=d+1;
a[i,j]:=d;
end;
for j:=i to n-i do
begin
d:=d+1;
a[j,n+1-i]:=d;
end;
for j:=i to n-i do
begin
d:=d+1;
a[n+1-i,n+1-j]:=d;
end;
for j:=i to n-i do
begin
d:=d+1;
a[n+1-j,i]:=d;
end;
until d>=n*n-1;
if n mod 2=1 then a[(n+1) div 2,(n+1) div 2]:=n*n;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4,' ');
writeln;
end;
readln;
End.
a) uses crt;
var n,x,i:longint;
lt:real;
begin
clrscr;
write('Nhap co so n=');readln(n);
write('Nhap so mu x='); readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*n;
writeln(n,'^',x,'=',lt:0:0);
readln;
end.