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
HT
2
NL
Nguyễn Lê Phước Thịnh
CTVHS
11 tháng 5 2021
b)
uses crt;
var j,t:integer;
begin
t:=105;
j:=0;
while t>=20 do
begin
j:=j+5;
t:=t-j;
end;
writeln(t);
writeln(j);
readln;
end.
ND
1
14 tháng 3 2017
Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;
BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .
NT
1
11 tháng 5 2017
Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
16 tháng 3 2017
2/ program bt;
var N,i:integer;
begin
write('nhap so N'); readln(N);
writeln;
writeln (' bang nhan ', N);
writeln;
for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end
readln
end.
Mik chỉ bít làm bài 2 thôi!
18 tháng 3 2017
program loc_so_le;
uses crt;
var N,y: longint;
begin
Writeln('Nhap so N '); Readln(N);
for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');
Readln;
end.
4 tháng 12 2016
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
xin lỗi, mình không giúp được, bạn tự làm đi nhé:)
mình đang thắc mắc là không có giám thị hay sao mà bạn chụp được hẳn cái đề thi như này cũng chịu
Câu 3:
Sẽ thực hiện 3 vòng lặp
S=6
Chương trình:
uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=2;
while (s<5) do
s:=s+n;
writeln(s);
readln;
end.
Đề thi phát rồi nên mới chụp lại ấy bạn
ủa không hiểu hả?
ý mình là không có giám thị trông hay sao mà học sinh đang thi lại chụp đề lên này để hỏi thế này?
mình khuyên nhẹ nhàng là đừng có như vậy bạn nhé, phụ thuộc nhiều quá vào việc tìm "phao" mà không chịu ôn bài là dở đấy bạn:)
Đầu tiên mình xin lỗi vì chụp như này khiến các bạn hiểu lầm. Mình nói đề thi phát rồi ý mình là đề đã làm xong hết và đã chấm xong phát ra rồi. Còn giám thị thì đương nhiên thi xong rồi giám thị còn cấm sao? Trong đề tên là Như còn mình tên Ngân các bạn có thể thấy tên nick mình. Bạn mình đã chụp đề này lại cho mình vì mình đang ở nhà không đi thi được. Mình đã giải đề này để làm được bài thi giữa kì sắp tới. Và đương nhiên đề thi của mình sẽ khác các bạn thi trên trường. Cuối cùng mình chân thành xin lỗi vì đã gây ra hiểu lầm này. Chúc các bạn học tốt.