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.
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.
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.
mình đang cần gấp
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
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 .
Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)
Dòng 4: Sai -> sửa: x: integer;
Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)
Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)
Dòng 11: Sai -> Sửa: end;
Các dòng còn lại đều đúng và không có vấn đề để sửa.
Bài chính xác như vầy, em tự sửa lại trên giấy nhé!
Program baiso2;
Uses crt;
Var x,y:integer;
Begin
x:=100;
y:=0;
While x<1000 do
Begin
y:=y+x;
x:=x+10;
End;
Readln;
End.
uses crt;
var i:longint;
{-----------------------------------------------------------}
function kt(x:longint):boolean;
var st,s:string;
i,a,b,o:longint;
begin
str(x,st);
s:='';
for i:=1 to length(st) do
begin
if i=4 then begin
val(s,a,o);
s:='';
end;
s:=s+st[i];
val(s,b,o);
end;
if b-a=4 then kt:=true
else kt:=false;
end;
{-----------------------------------------------------------}
begin
clrscr;
for i:=100000 to 999999 do
if (i=sqr(round(sqrt(i)))) and (kt(i)) then
writeln(i);
readln;
end.
góp ý tý nhé:
chỗ khai báo biến o phải là integer thì mới chạy được nhé
uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.