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â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.
Tài khoản OLM và Hoc24 thông nhau nên bạn có thể đổi tên trên Hoc24 nhé !
https://www.youtube.com/watch?v=zGTXj-nsgwE
Bạn bấm vào đường link nhé! Mặc dù mình chưa có thử nhưng nhiều bạn đã làm và có hiệu quả ạ. Chúc bạn thành công!
cho mình hỏi sao đổi ảnh đại diện của hoc24 đc vậy , dổi xong mình ấn ctrl với f5 rồi nhưng vẫn k đc
chắc nó ch cập nhập kịp thui, mk cũng để mấy ngày nó mới đổi mà
cậu mấy tuổi?
=)))))))))