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.
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
Lời giải:
Bài 1 :
a) var A : array[1..100] of real ;
b) var B : array[1..20] of integer ;
c) A[7] := 8 ;
Bài 2 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 3 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('Co tat ca so ban hoc sinh la'); readln(n);
write('Nhap diem mon tin cua cac ban');
for i:= 1 to n do
begin
write('Ban thu ',i,':'); readln(a[i]);
end;
readln
end.
Bài 4 : a,b giống bài 3
c)
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n,tong : integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] > 0 then tong:=tong+1;
write('Ket qua la',tong);
readln
end.
Bài 5: a và b tương tự bài 3
c+d )
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);
d) if i mod 2= 1 then write('Cac so le cua mang la:',i);
readln
end.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;
Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);
Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;
Writeln('So lon nhat trong 4 so do la: ',Max);
readln;
End.
Tìm GTLN : =SUM(XA:YB) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.
Câu 11:
uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
begin
kt:=0;
if (a=b) or (b=c) or (a=c) then kt:=1;
if kt=0 then writeln('Day khong la tam giac can')
else writeln('Day la tam giac can');
end;
readln;
end.
Câu 12:
uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
begin
kt:=0;
if (a=b) and (b=c) then kt:=1;
if kt=0 then writeln('Day khong la tam giac can')
else writeln('Day la tam giac can');
end;
readln;
end.
Câu 13:
uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then writeln('Chu vi cua tam giac la: ',a+b+c:4:2)
else writeln('Day khong la ba canh cua mot tam giac');
readln;
end.
Câu 14:
uses crt;
var a,b,c,kt:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
begin
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la ba canh cua mot tam giac vuong')
else writeln('Day la ba canh trong mot tam giac vuong');
end;
readln;
end.
Câu 15:
uses crt;
var a,b,c,d,ln:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
ln:=a;
if ln<b then ln:=b;
if ln<c then ln:=c;
if ln<d then ln:=d;
writeln('So lon nhat la: ',ln:4:2);
readln;
end.
Câu 16:
uses crt;
var i:integer;
a,max:real;
begin
clrscr;
write('Nhap so thu nhat='); readln(a);
max:=a;
for i:=2 to 4 do
begin
write('Nhap so thu ',i,'='); readln(a);
if max<a then max:=a;
end;
writeln('So lon nhat trong 4 so la: ',max);
readln;
end.
Câu 17:
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<>0 then writeln('Phuong trinh co nghiem la: ',-b/a:4:2);
if (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
readln;
end.
Câu 1: B
Câu 2: D
Câu 3: D
Câu 4: Thông báo lỗi
Câu 5: C
Câu 6: B
Câu 7: C
Câu 8: D
Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn
Câu 10: B
Câu 11: B
Câu 12: D
Câu 13: C
Câu 14: A
Câu 15: C
Câu 16:
-Cấu trúc rẽ nhánh có 2 dạng.png)
Câu 17
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
C1: A
C2: D
C3: D
C4: báo lỗi
C5: C
C6: B
C7: C
C8: D
C9: Hoán đổi gt biến a và b
C10: B
C11: B
C12: D
C13: C
C14: A
C15: C
C16
- Cấu trúc rẽ nhánh có 2 loại
C17
Để giải bài toán này, ta có thể sử dụng vòng lặp để thử từng trường hợp cho số tiền mà bạn tiêu để nâng trình độ của Tí. Ta sẽ thử từ 0 đến K đồng, và kiểm tra xem có tồn tại số tiền mà Tí đã được tiêu để trình độ của Tí và Tèo bằng nhau hay không.
Dưới đây là một ví dụ code Python để giải bài toán này:
def calculate_money(A, B, K, X, Y): for money in range(K+1): # Tí nâng trình độ lên X new_A = A + X * money # Tèo nâng trình độ lên Y new_B = B + Y * money # Nếu trình độ của Tí và Tèo bằng nhau if new_A == new_B: return money # Nếu không có cách để trình độ của Tí và Tèo bằng nhau return -1 # Đọc dữ liệu từ file input with open("TITEO.inp", "r") as file: A, B, K, X, Y = map(int, file.readline().split()) # Tính toán số tiền mà Tí đã được bạn tiêu để nâng trình độ cho Tí result = calculate_money(A, B, K, X, Y) # Ghi kết quả vào file output with open("TITEO.out", "w") as file: file.write(str(result))Bạn có thể thay đổi đường dẫn của file input và output theo nơi bạn lưu trữ file. Sau khi chạy code, kết quả sẽ được ghi vào file "TITEO.out". Nếu không có cách để trình độ của Tí và Tèo bằng nhau, kết quả sẽ là -1.