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.
uses crt;
Var i,n,dem:integer;
a: array[1..1000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
dem:=0;
for i:= 1 to n do
Begin
write('So thu ',i,' = ');
readln(a[i]);
if a[i] mod 2 = 0 then inc(dem);
end;
Writeln('Day so co ',dem,' so chan');
readln;
End.
program abcdef;
uses Crt;
var
k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;
isPrime, isPalindrome: boolean;
begin
clrscr;
write('Nhap so chu so k (1<=k<=9): ');
readln(k);
lowerLimit := 1;
for i := 1 to k - 1 do
lowerLimit := lowerLimit * 10;
upperLimit := lowerLimit * 10 - 1;
writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');
for i := lowerLimit to upperLimit do
begin
// Kiểm tra số nguyên tố
isPrime := True;
if i < 2 then
isPrime := False
else
for j := 2 to trunc(sqrt(i)) do
if i mod j = 0 then
beginisPrime := False;break;end;
// Kiểm tra số đối xứng
if isPrime then
begin
reversed := 0;
temp := i;
while temp <> 0 dobeginremainder := temp mod 10;
reversed := reversed * 10 + remainder;
temp := temp div 10;
end;
isPalindrome := (i = reversed);
if isPalindrome then
writeln(i);
end;
end;
readln;
end.
Công việc trên máy tính | Cần kết nối mạng máy tính |
1. Soạn thảo văn bản bằng Word |
|
2. Lập trình Pascal |
|
3. Tạo bảng tính bằng Excel |
|
4. Đọc báo điện tử từ Internet | x |
5. Chat với bạn bè trên Facebook | x |
6. Gửi/nhận thư điện tử | x |
7. Học tiếng Anh trực tuyến | x |
8. Sử dụng Google để tìm kiếm thông tin | x |
9. Trao đổi thông tin, dữ liệu (chat, email, …) | x |
10. Sử dụng dịch vụ trên mạng (học trực tuyến, tìm kiếm thông tin, …) | x |
11. Sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) |
|
12. Soạn thảo trực tuyến, chia sẽ bài viết, hình ảnh, video, … | x |
13. Một vấn đề lớn, phức tạp cần kết hợp sức mạnh của nhiều máy tính để giải quyết (giải bài toán cần xử lí nhiều phép tính, dữ liệu lớn, …) | x |
em nghĩ sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) cũng là cần kết nối mạng máy tính vì trong phần lợi ích sgk có ghi vậy ạ T^T
program tinh_ex;
var
x, ex, gt: real;
n, i: integer;
begin
write('Nhap vao so x: '); readln(x);
n := 10; (* so luong so hang *)
ex := 1; gt := 1;
for i := 1 to n do
begin
gt := gt * i; (* tinh giai thua i! *)
ex := ex + power(x, i) / gt; (* tinh tong theo cong thuc *)
end;
writeln('Gia tri cua e^', x, ' la: ', ex);
readln;
end.
program tinh_e;
var x: real;
n: integer;
s, t: real;
i: integer;
begin
write('Nhap x: '); readln(x);
write('Nhap n: '); readln(n);
s := 1; t := 1;
for i := 1 to n do
begin
t := t * x / i;
s := s + t;
end;
writeln('e = ', s);
end.