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
DP
3
3 tháng 11 2019
begin
write('ket qua la ',(2 div 3)-(2 mod 3)+(3 div 2)-(3 mod 2));
readln;
end.
TN
7 tháng 1 2019
var i,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
if n mod i=0 then writeln(' Cac uoc cua ',n,' la: ',i,' ');
readln;
end.
7 tháng 1 2019
bạn Luân Đào ơi ,bạn test chương trình chưa
mà mình nói điều nhé dùng lệnh for ko sử dụng real được nhá
TM
3
30 tháng 6 2020
uses crt;
var s,n:int64;
begin
clrscr;
s:=0;
n:=0;
while s<1000000 do
begin
n:=n+1;
s:=s+n;
end;
writeln(n);
readln;
end.
Bài này phải làm trên Pascal mới đc