K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
GH
28 tháng 4 2017
1/
program uoc;
uses crt;
var n,i,dem,x:word;
a:array[1..20] of longint;
begin
clrscr;
write('nhap so phan tu cua day:') ;readln(n);
while n>20 do
begin
write('nhap lai so phan tu thoa man toi da la 20 phan tu:');
readln(n);
end;
writeln('nhap cac phan tu cua mang:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap so nguyen x:'); readln(x);
dem:=0;
for i:=1 to n do
if x mod a[i] =0 then
begin
dem:=dem+1;
writeln(a[i],' la uoc cua ',x);
end;
if dem=0 then writeln('khong co phan tu la uoc cua ',x)
else write('co ',dem,' phan tu la uoc cua ',x);
readln;
end.
VT
4
17 tháng 10 2021
nhìn mặc áo hình như trò chơi con mực đúng hông đấy là trò giết người hả
17 tháng 10 2021
Tl :
Khong duoc viet lung tung tren dien dang
~ H T ~
7 tháng 10 2020
uses crt;
var x,y,z:real;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
z:=abs(1-sqr(x))+abs(1-sqr(y));
writeln('Z=',z:4:2);
readln;
end.
31 tháng 10 2019
quá dễ
bài 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=0 then
if b=0 then writeln('phuong trinh co vo so nghiem')
else writeln('phuong trinh vo nghiem')
else writeln('phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.
bài 2:
uses crt;
var x,y,a,b,ucln:integer;
{---------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky='); readln(n);
end;
{---------------------------------------------------------}
procedure rutgon(var a,b:integer);
var x,y,ucln:integer;
begin
x:=a;
y:=b;
while x<>y do
begin
if x>y then x:=x-y
else y:=y-x;
end;
ucln:=x;
if ucln<>1 then
begin
a:=a div ucln;
b:=b div ucln;
writeln('phan so toi gian la: ',a,'/',b);
end
else writeln('phan so toi gian la: ',a,'/',b);
end;
{----------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
rutgon(a,b);
readln;
end.
22 tháng 3 2021
uses crt;
var a,b:integer;
{-------------chuong-trinh-con-tinh-tong---------------------}
function tong(x,y:integer):integer;
begin
tong:=x+y;
end;
{-------------chuong-trinh-con-tinh-tich------------------}
function tich(x,y:integer):integer;
begin
tich:=x*y;
end;
{-----------------chuong-trinh-con-so-lon------------------}
function solon(x,y:integer):integer;
begin
if x>y then solon:=x
else solon:=y;
end;
{-----------------chuong-trinh-con-so-be------------------}
function sobe(x,y:integer):integer;
begin
if x<y then sobe:=x
else sobe:=y;
end;
{--------------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Tong la: ',tong(a,b));
writeln('Tich la: ',tich(a,b));
writeln('So lon la: ',solon(a,b));
writeln('So be la: ',sobe(a,b));
readln;
end.
25 tháng 12 2019
1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/(sqr(i));
writeln('tong cua day so la: ',s);
readln;
end.
2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+1/(sqr(i));
writeln('tong cua day so la: ',s:4:2);
readln;
end.
