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 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.
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:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
Tham khảo!
Em cần tránh các hành vi:
1) Đây là hành vi thiếu văn hóa, vi phạm đạo đức, chưa trung thực trong học tập, kiểm tra.
2) Hành vi này vi phạm đạo đức, thiếu văn hóa. Việc làm này vi phạm quyền riêng tư của người bạn nước ngoài và có thể ảnh hưởng quản hệ giữa hai bên.
3) Hành vi này vi phạm quy định của bảo tàng. Việc chụp ảnh trong bảo tàng mà không được phép có thể gây ra hậu quả nghiêm trọng. Nó có thể làm mất tính nguyên vẹn của tác phẩm, cũng như làm giảm giá trị văn hoá, có thể gây mất an ninh của bảo tàng Hơn nữa, việc đưa những bức ảnh này lên mạng xã hội có thể dẫn đến vi phạm bản quyền và pháp luật.
- Sử dụng vòng lặp với số lần lặp là 12
Kết quả thu được là
Chắc là nó bị lỗi đó
Olm chào em, với dạng này em chỉ cần làm lần lượt từng câu một, sau đó nhấn vào kiểm tra. Em cứ làm lần lượt như vậy cho đến khi hết câu của bài kiểm tra tức là em đã hoàn thành bài kiểm tra rồi em nhé. Cảm ơn em đã đồng hành cùng Olm. Chúc em học tập hiệu quả và vui vẻ cùng Olm.