K
Khách
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ác câu hỏi dưới đây có thể giống với câu hỏi trên
6 tháng 1 2022
Bài 1:
Ta nhớ thực hiện lệnh
<biến đếm>:=<giá trị>;
Bài 2:
d:=d+2;
3 tháng 8 2023
- Y tế ( bác sĩ, dược sĩ, y tá, điều dưỡng,....)
+ Hệ thống quản lý thông tin bệnh viện.
+ Bộ phận hình ảnh y khoa và chẩn đoán hỗ trợ bằng máy tính.
+ Dữ liệu y tế điện tử và quản lý bệnh nhân.
- Tài chính và ngân hàng:
+ Giao dịch tài chính trực tuyến và thanh toán điện tử.
+ Quản lý tài chính cá nhân và doanh nghiệp.
+ Phân tích tài chính và dự báo thị trường
- Giáo dục:
+ Học trực tuyến và e-learning.
+ Phần mềm quản lý giáo dục và học sinh.
+ Công cụ hỗ trợ giảng dạy và đánh giá hiệu quả học tập.
- Kiến trúc và xây dựng:
+ Mô phỏng và thiết kế 3D.
+ Quản lý dự án xây dựng và lịch trình công việc.
+ Xây dựng thông minh và tự động hóa công trình.
20 tháng 4 2021
Câu 1:
uses crt;
var n,i,ln,max,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
max:=0;
ln:=1;
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if ln<t then max:=i;
end;
writeln(max);
readln;
end.
21 tháng 4 2021
Cho n =1000000 thì load hơi chậm bạn à, với lại mấy cái biến phải là longint chứ nhỉ
Câu 1:
*For...to...do:
Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Hoạt động: Ở dạng lặp tiến, câu lệnh viết sau từ khóa phải thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.
Câu 1:
*For...downto...do
-Cú pháp: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
-Hoạt động:
Ở dạng lặp lùi, câu lệnh viết sau từ khóa do được thực hiện tuần tự, với biến đếm lần lượt nhận giá trị từ giá trị đầu đến giá trị cuối.