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
7 tháng 11 2021
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
25 tháng 6 2021
uses crt;
var st,s1,s2:string;
i,max,x,y,d1,d2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
s1:=#32;
for i:=1 to length(st) do
if st[i] in ['a'..'z'] then s1:=s1+st[i];
d1:=length(s1);
for i:=1 to d1 do
s1[i]:=upcase(s1[i]);
writeln('Xau ky tu da chuyen sang hoa la: ',s1);
s2:=#32;
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then s2:=s2+st[i];
write('Day so dao nguoc la: ');
d2:=length(s2);
for i:=d2 downto 1 do
write(s2[i]);
writeln;
max:=0;
for i:=1 to d2 do
begin
val(s2[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
TL
1
18 tháng 3 2021
Câu 17: C
Câu 18: A
Câu 19: C
Câu 2: A
Câu 4: C
Câu 6: C
5 tháng 6 2021
uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
clrscr;
write('nhap m:');readln(m);
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
clrscr;
writeln('ma tran da nhap la:');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:5);writeln;
end;
i:=1;j:=1;
while i<=m do
begin
t:=t+a[i,j];
inc(i);inc(j);
end;
writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
readln;
end.
ML
10 tháng 5 2023
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.
KV
10 tháng 5 2023
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.
v
:v?