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 HOC24;
var a: array[1..10] of integer;
i,n,d,j: integer;
function ucln(x,y: integer): integer;
var t: integer;
begin
while y<>0 do
begin
t:=x mod y;
x:=y;
y:=t;
end;
ucln:=x;
end;
begin
write('Nhap N='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
for j:=i to n do
if ucln(a[i],a[j])=1 then d:=d+1;
write('Co ',d,' cap so nguyen to cung nhau');
readln
end.
Tổng số tiền nhận được theo ví dụ của bạn phải là 76 chứ?
Lời giải:
program hotrotinhoc;
var a: array[1..1000] of longint;
f: text;
i,n,s : longint;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=0;
for i:=1 to n do
s:=s+a[i];
write(f,s);
close(f);
end;
begin
ip;
out;
end.
Bạn đăng qua trang toán sẽ được nhiều người giúp hơn , thật đấy !!!
uses crt;
var a:array[1..15]of integer;
n:integer;
begin
clrscr;
n:=1;
a[1]:=3;
repeat
n:=n+2;
a[n]:=a[n-1]+3;
until a[n]>40;
for i:=1 to n-1 do
write(a[i]:4);
readln;
end.
Thuật toán
B1: Nhập số nguyên a, nhập số nguyên b;
B2: Nếu a<b thì in giá trị b ra màn hình, ngược lại nếu a>b in a ra màn hình, ngược lại nếu a=b thì in ra thông báo 2 giá trị bằng nhau;
B3: Kết thúc
Câu 1:
Program hotrotinhoc;
var i,n: longint;
x,tl,tc,min,max,k: integer;
begin
write('Nhap so chu so : '); readln(k);
write('Nhap so nguyen N : '); readln(n);
max:=0; min:=99999; tl:=0; tc:=0;
while n<>0 do
begin
x:=n mod 10;
if max<x then max:=x;
if min>x then min:=x;
if x mod 2<>0 then tl:=tl+x;
if x mod 2=0 then tc:=tc+x;
x:=x div 10;
end;
writeln('Chu so lon nhat la : ',max,' ; ',' Chu so be nhat la : ',min);
writeln('Tong cac chu so la chu so le la :',tl);
write('Tong cac chu so la chu so chan la :',tc);
readln
end.
Bài 1: Sửa đề: Dòng 3: Tổng các chữ số là chữ số chẵn trong N
uses crt;
var n,k,i,x,max,min,t,t1:integer;
a:array[1..4]of integer;
st:string;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
str(n,st);
k:=length(st);
if (2<k) and (k<5) then
begin
{------------------------dong-1------------------------}
for i:=1 to k do
val(st[i],a[i],x);
max:=a[1];
min:=a[1];
for i:=1 to k do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('chu so lon nhat cua ',n,' la: ',max);
writeln('chu so nho nhat cua ',n,' la: ',min);
{----------------------dong-2------------------------}
t:=0;
for i:=1 to k do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('tong cac chu so la chu so le trong ',n,' la: ',t);
{---------------------dong-3-------------------------}
t1:=0;
for i:=1 to k do
if a[i] mod 2=0 then t1:=t1+a[i];
writeln('tong cac chu so la chu so chan trong ',n,' la: ',t1);
end
else writeln('vui long nhap lai');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var n,i,t,d,y,kt,kt1:integer;
a:array[1..3]of integer;
st:string[3];
begin
clrscr;
write('n='); readln(n);
if (100<=n) and (n<=999) then
begin
str(n,st);
d:=length(st);
{--------------------------dong-1-------------------}
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],y);
t:=t+a[i];
end;
writeln('tong cac chu so cua so ',n,' la: ',t);
{-------------------------dong-2---------------------}
kt:=0;
for i:=1 to d do
if a[i] mod 2=0 then
begin
kt:=1;
write(a[i]:4);
end;
if kt=0 then writeln('KHONG CO');
{-----------------------dong-3----------------------}
writeln;
kt1:=0;
for i:=1 to d do
if a[i] mod 2=1 then
begin
kt1:=1;
write(a[i]:4);
end;
if kt1=0 then writeln('KHONG CO');
end
else writeln('vui long nhap lai');
readln;
end.
Chương trình này sẽ nhận 3 số nguyên từ người dùng, tính tích của chúng, và sau đó tìm số mũ lớn nhất mà tích đó có thể được viết dưới dạng lũy thừa của một số nguyên dương. Chúng tôi sử dụng hàm math.log2 để tính số mũ lớn nhất. Lưu ý rằng kết quả sẽ được làm tròn xuống số nguyên gần nhất.