HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
thay đổi giá trị của ô tính, thì giá trị tính toán sẽ được cập nhật theo
program bt;
var i:byte;
a:array[1..20] of real;
procedure nhap;
begin
for i:=1 to 20 do read(a[i]);
end;
procedure xuli;
for i:=1 to 20 do write(a[i],' ');
nhap;
xuli;
readln;
end.
Chúc bạn làm tốt!( có sai nói mik)
var n,i:integer;
a:array[1..100] of integer;
writeln('nhap so pt');
readln(n);
writeln('nhap mang');
for i:=1 to n do read(a[i]);
dem:=0;
for i:=1 to n do
if a[i] mod 2= 0 then begin
writeln(a[i]);
inc(dem);
Chúc bạn làm tốt!( có sai nói mik nhe)
câu 1)có 3 dạng thông tin cơ bản: văn bản,hình ảnh,âm thanh
vd: văn bản: sách vở,báo,tạp chí...
hình ảnh:truyền hình, ảnh,tranh, phim...
âm thanh:nhạc, tiếng nhạc cụ, tiếng hát....
câu 2) một số khả năng:
- khả năng tính toán nhanh.
- lưu trữ thông tin lớn
- ko bao giờ mệt mỏi...
điều chưa làm được:
-tư duy như con người
-ko có giác quan ..
ROM: read only memory:chỉ đọc bộ nhớ
RAM: random access memory: bộ nhớ truy cập tạm thời
program moddiv;
var n,i,k,t,a:integer;
s:string;
k:=1;t:=0;
for i:=2 to length(s) do k:=k*10;
while n <> 0 do
a:=n mod 10;
n:=n div 10;
t:=t+k*a;
k:=k div 10;
writeln(t);
Chúc bạn làm được bài!( có sai nói mik nha)