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
K
0
NQ
1
16 tháng 9 2019
uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
s:=s+i;
write('Tong:',s);
readln
end.
P
2
6 tháng 10 2018
| Dãy số | 15 | 10 |
13 |
17 | |
| i | 1 |
2 |
3 | 4 | 5 |
| Min | 15 | 10 | 10 |
10 |
Vậy giá trị nhỏ nhất là 10
ML
28 tháng 8 2019
Lời giải:
Ở đề có yêu cầu kiểm tra n có phải số chính phương không như ở Output thì đề lại không yêu cầu in ra có phải số chính phương không . Mình sẽ làm cả số chính phương nữa nhé nếu cần thì bạn chỉ cần xóa đi 2 dấu { và }.
Program hotrotinhoc;
var n : integer;
function kt(x: integer): integer;
var j: integer;
begin
kt:=false;
if x<2 then exit;
for j:=2 to trunc(sqrt(x)) do
if x mod j =0 then exit;
kt:=true;
end;
begin
write('N='); readln(n);
if nt(n) then write('YES') else write('NO');
{if n=sqr(trunc(sqrt(n))) then write('YES') else write('NO');}
readln
end.
13 tháng 12 2019
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
writeln('tong la: ',s:4:2);
readln;
end.