BV
1
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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
29 tháng 3 2018
Các bạn giải giùm mik mik cho cần gấp môn tin trong pascal nha
HP
2
A
6 tháng 12 2015
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap so n:);realn(n);
for i:=1 to n-1 do
max:=1
if n mod i=0 then
begin
if i >max
write(i);
end;
readln;
end.
2 tháng 3 2016
LƯU Ý
Các bạn học sinh KHÔNG ĐƯỢC đăng các câu hỏi không liên quan đến Toán, hoặc các bài toán linh tinh gây nhiễu diễn đàn. Online Math có thể áp dụng các biện pháp như trừ điểm, thậm chí khóa vĩnh viễn tài khoản của bạn nếu vi phạm nội quy nhiều lần.
Chuyên mục Giúp tôi giải toán dành cho những bạn gặp bài toán khó hoặc có bài toán hay muốn chia sẻ. Bởi vậy các bạn học sinh chú ý không nên gửi bài linh tinh, không được có các hành vi nhằm gian lận điểm hỏi đáp như tạo câu hỏi và tự trả lời rồi chọn đúng.
Mỗi thành viên được gửi tối đa 5 câu hỏi trong 1 ngày
Các câu hỏi không liên quan đến toán lớp 1 - 9 các bạn có thể gửi lên trang web h.vn để được giải đáp tốt hơn.
18 tháng 4 2017
a)nguyên tử theo hàm độ x y là nguyên tử y
b)giá trị là o,87645
c)784736
d)878,985,354,894,9045
chị học lớp 9 rồi nên hiểu mà,chị đc 10 bài này đó,tin chị đi
NB
0
NB
0
in ra số lớn nhất thì mình nghĩ có cách này :/
program abc;
uses crt;
var a,b,c,dmax : integer;
begin
clrscr;
write ( ' nhap a =' );
readln (a);
write ( ' nhap b = ');
readln (b);
write ( ' nhap c =' );
readln (c);
write ( ' nhap d = ' );
readln (d);
a:=max;
if max<b then max:=b;
if max<c then max :=c;
if max<d then max :=d;
write ( ' so lon nhat la',max);
readln;
end.
( mình không chắc nha :I )