toán hay tin đây

Lười code lắm, ngôn ngữ nào đây

cướp?

lo mà họ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.

đẹp quá​

cái này thì sao??????????????????

cảm ơn bn kiểu váy này rất đẹp

- Trình bày các cách khởi động World.

Các bn ơi, giúp mik vs nhé! Chuẩn bị mik kiểm tra 1 tiết òi

8h sáng ngày 11 tháng 7 năm 2021

8h sáng ngày 11 tháng 7 năm 2021

ấn nút S=>D

mà nó tính đúng rồi đó

tại do 5 chia 4 k chia hết được nên nó để dạng phân số

hỏi GV, HS :))

Olm chào em, với dạng này em chỉ cần làm lần lượt từng câu một, sau đó nhấn vào kiểm tra. Em cứ làm lần lượt như vậy cho đến khi hết câu của bài kiểm tra tức là em đã hoàn thành bài kiểm tra rồi em nhé. Cảm ơn em đã đồng hành cùng Olm. Chúc em học tập hiệu quả và vui vẻ cùng Olm.

2

2

2

10