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 3 :con ng`
Câu 12 : khuỷu tay phải
Câu 21 :Ông thọ
Câu 28 :3 quả
Câu 31:thắp diêm
Câu 34:phòng thứ 3
P/s mk k chắc nx 
1. Chuột Mickey
2. Con vịt nào không bị què thì đi bằng 2 chân
3. Con người
4. Hổ không ăn cỏ
5. Năm không nhuận có tháng 2 28 ngày, năm nhuân không có tháng nào 28 ngày
6. Đông
7. Quả bóng
8. Dùng ống hút
9. 1 chữ C là "Cơm"
10. Bạn đã ngủ chưa?
11. ghép lại thành com-pa
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.
Input:
8
1 2 1 2 1 3 2
Output:
2
Như vầy à bn???
Mà nếu đúng thì Tick cho mk nha!Thank you nhìu!!
mày ko báo cáo thì cút ngay nhá đừng có làm phiền tới cư dân olm! Báo cáooo!!!!
@congtybaocao
1. Khả năng cuae máy tính
- tính toàn nhanh
- độ chính xác cao
- khẳ năng lưu trữ lớn
- khả năng làm "việc" không mệt mỏi
2. Thao tác chuột
- nháy nút Trái chuột
- nháy nút Phải chuột
- Nháy đúp chuột
- Kéo thả chuột
- Xoai nút chuột
3. Khu vực chính có 5 hàng phím: hàm phím số, hàng phím trên, hàng phím cơ sở, hàng phím dười, còn hàng phím có hai
4.
Cấu trúc chung gồm 3 khối chức năng chính: Bộ nhớ, bộ xử lí trung tâm, các thiết bị vào/ra
Trong đó bộ xử lí trung tâm (CPU) là quan trọng nhất vì nó thực hiện các chức năng chính như tính toán, điểu khiển và phối hợp các hoạt động của máy tính theo sự chỉ dẫn của trương trình.
5. Việc tiếp nhận, xử lí, lưu trữ, truyền (trao đổi) được gọi chung là hoạt động thông tin.
6. Biểu diển thông tin là cách thể hiện thông tin dưới dạng cụ thể nào đó.
512131
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.