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 i,a,b: longint;
d: byte;
function t(x: longint): longint;
var j,t1: longint;
begin
t1:=0;
for j:=1 to x do if x mod j=0 then t1:=t1+j;
t:=t1;
end;
begin
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
d:=0;
for i:=a to b do
if (t(i)/i)=12/5 then d:=d+1;
write(d);
readln
end.
uses crt;
var a:array[2..1000000]of longint;
n,i,k,t,dem:longint;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=1000000);
for i:=2 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
dem:=0;
for i:=2 to n do
if a[i] mod k=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chia het cho ',k,' la: ',t);
writeln('So phan tu chia het cho ',k,' la: ',dem);
readln;
end.
uses crt;
var n,t:int64;
dem,i:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<1000000000);
writeln('Cac so chinh phuong trong khoang tu 1 toi ',n,' la: ');
dem:=0;
t:=0;
for i:=1 to n do
if sqrt(i)=trunc(sqrt(i)) then
begin
write(i:6);
inc(dem);
t:=t+i;
end;
writeln;
writeln('So so chinh phuong trong khoang tu 1 toi ',n,' la: ',dem);
writeln('Tong cac so chinh phuong trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
Theo Von Neumanm. Cấu trúc chung của máy tính gồm 3 phần:
+ Bộ xử lí trung tâm (CPU)
+ Bộ nhớ
+ Thiết bị vào/ra
* Bộ xử lí trung tâm(CPU) được xem là bộ não của máy tính thực hiện các chức năng tính toán, điều khiển, điều phối mọi hoạt động của máy tính theo sự chỉ dẫn của chương trình.
* Bộ nhớ dùng để lưu chương trình và dữ liệu. Được chia ra làm hai loại: bộ nhớ trong và bộ nhớ ngoaì.
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n=1 then a[1]:=2
else begin
a[1]:=2;
x:=1;
dem:=1;
repeat
x:=x+2;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then begin
inc(dem);
a[dem]:=x;
end;
until dem=n;
end;
{-----------------------------------------}
writeln(n,' so nguyen to dau tien la:');
for i:=1 to n do
write(a[i]:4);
{--------------------------}
readln;
end.
Bài 2:
uses crt;
var s,a:integer;
begin
clrscr;
s:=0;
a:=0;
repeat
a:=a+1;
s:=s+a;
until s>500;
writeln(s);
readln;
end.
1. Thông tin là những gì đem lại sự hiểu biết cho con người về thế giới xung quanh (sự vật , sự kiện,...) hoặc về chính con người.
Có 3 dạng thông tin cơ bản:
- Dạng văn bản: VD: bài báo, truyện,sách,...
- Dạng hình ảnh: VD: Hình vẽ, tranh, ảnh,...
- Dạng âm thanh: VD: bài hát ,tiếng trống ,tiếng còi ô tô,...
2. Cấu trúc chung của máy tính điện tử gồm
- Bộ xử lí trung tâm ( CPU)
- Bộ nhớ: RAM, ổ đĩa cứng, đĩa CD,DVD,...
-Thiết bị vào ra:
+ Vào:máy quét , chuột ,bàn phím,...
+Ra:máy in, loa ,màn hình, máy vẽ,...
3. bạn xem lại đề đi, mik ko hiểu cho lắm, thông cảm nha!
uses crt;
var a,i,s:longint;
begin
clrscr;
write('a='); readln(a);
s:=0;
for i:=1 to a do
begin
if i mod 2=1 then s:=s+i
else s:=s-i;
end;
writeln('Ket qua la: ',s);
readln;
end.