ND
0
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!
TT
2
7 tháng 12 2017
-hoạt động của câu lệnh dạng thiếu là chương trình sẽ kiểm tra,nếu điều kiện đúng ,chương trình sẽ thực hiện , nếu điều kiện sai sẽ bỏ qua và kết thúc
-hoạt động của câu lệnh dạng đủ là chương trình sẽ kiểm tra điều kiện , nếu đúng thì chương trình thực hiện câu lệnh 1 , ngược lại chương trình sẽ thực hiện câu lệnh 2
NT
3
27 tháng 4 2017
4. program bai_4;
ues crt;
var
s,n,i:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
readln;
end.
5.program bai_5;
uses crt;
var
i,s,n:integer;
begin
clrscr;
write('nhap n :');readln(n);
s:=0;
for i:=1 to n do s:=s+1;
writer('tong la:',s);
readln;
end.
27 tháng 4 2017
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
for i:= 1 to n do
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
C
30 tháng 11 2021
Tham Khảo:
uses crt;
var ngay:integer;
lp:string;
begin
clrscr;
repeat
write('nhap so ngay thue phong khach san:'); readln(ngay);
if ngay<=0 then writeln('nhap lai');
until ngay>0;
repeat
write('nhap loai phong:'); readln(lp);
if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');
until (lp='A') or (lp='B') or (lp='C');
case lp of
'A': write(300000*ngay);
'B': write(250000*ngay);
'C': write(200000*ngay);
end;
readln;
end.
NT
2
27 tháng 4 2017
c)
uses crt;
var i, n: integer;
a: array [1..100] of integer;
begin
write(' nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln(a[i]);
readln
end.
d)
uses crt;
var i, le, chan: integer;
a: array[1..20] of integer;
begin
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to 20 do
if a[i] mod 2 <> 0 then
writeln((a[i]) ,' la so le');
for i:=1 to 20 do
if a[i] mod 2 = 0 then
writeln((a[i]) ,' la so chan');
readln
end.
GH
18 tháng 7 2017
b)
uses crt;
var n,i:word;
T:longint;
begin
clrscr;
write('nhap n:');readln(n);
T:=1;
for i:=2 to n do T:=T*(1+i);
write('T = ',T);
readln;
end.
VP
1
TD
viết chương trình tính trung bình của dãy số gồm n phần tử . giải giúp mình với.😊
2
28 tháng 4 2017
uses crt;
var i, n, s: integer;
tb: real;
a: array [1..100] of integer;
begin
write('nhap so n:'); readln(n);
for i:=1 to n do
s:= s + a[i];
tb:= s/n;
writeln(' trung binh cua day so la:', tb:4:2);
readln
end.
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
28 tháng 4 2017
uses crt;
var i, n, s: integer;
tb: longint;
a: array [1..100] of integer;
begin
write('nhap so n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
s:= s+a[i];
tb:= s/n;
writeln(' trung binh cua day so la: ', tb:4:2);
readln
end.
11 tháng 11 2019
bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,max,dem,j,vt:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------------}
for i:=1 to n do write(a[i]:4);
{-------------xu-ly----------------------}
writeln;
max:=0;
for i:=1 to n-1 do
if sqrt(a[i])=trunc(sqrt(a[i])) then
begin
dem:=1;
for j:=i+1 to n do
begin
if sqrt(a[j])=trunc(sqrt(a[j])) then inc(dem);
if (j=n) and (max<=dem) and (sqrt(a[j])=trunc(sqrt(a[j]))) then
begin
max:=dem;
vt:=j;
end;
if (sqrt(a[j])<>trunc(sqrt(a[j]))) then if (max<=dem) then
begin
max:=dem;
vt:=j-1;
break;
end
else break;
end;
end;
if max=0 then writeln('ko co')
else begin
writeln('doan co so chinh phuong dai nhat la: ',max);
writeln('o vi tri tu ',vt-max+1,' den ',vt);
end;
readln;
end.
28 tháng 12 2020
Câu 1:
uses crt;
var t:real;
i:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
t:=t+(sqr(i) mod (2*i));
writeln('So tien sau cung la: ',t:0:0);
readln;
end.
Câu 2:
const fi='dxau.inp';
fo='dxau.out';
var f1,f2:text;
st:string;
x:char;
dem,i,d:integer;
a:array[1..255]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
readln(f1,x);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=x then
begin
inc(dem);
a[dem]:=i;
end;
if dem=0 then writeln(f2,'Khong co')
else begin
writeln(f2,dem);
for i:=1 to dem do
write(f2,a[i]:4);
end;
close(f1);
close(f2);
end.
9 tháng 4 2021
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
9 tháng 4 2021
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
