đề mô?

giúp mình với ạ, môn nghề lớp 8 ạ

CÂU TL LÀ 

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.

v

:v?

Câu 17: C

Câu 18: A

Câu 19: C

Câu 2: A

Câu 4: C

Câu 6: C

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.

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2;

return 0;

}