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.
program bai_5;
uses crt;
var a,b,c :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
if a<0 then a:=-a;
max:=a;
if max <b then max:=b;
if max<c then max:=c;
write('gia tri tuyet doi cua a la:',a);
write('so lon nhat trong ba so a,b,c la:',max);
Readln
END.
Thanks
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
III) ĐÁP ÁN
A- Trắc nhiệm
1. A 7. A
2. C 8. A
3. D 9. B
4. C 10. B
5. D 11. D
6. C 12. B
B- Tự luận
Câu 1: a) (10 + 5) / (3 + 1) – 18 / (5 + 1 )
b) (a*a+b)*(1+c)*(1+c)*(1+c)
Câu 2: Program Dien_tich_HCN;
Uses crt;
Var d, r : integer;
Begin
Clrscr;
Write (‘ Nhap chieu dai: ’); readln (d);
Write (‘ Nhap chieu rong: ’); readln(r);
Write (‘ Dien tich hinh chu nhat la: ’, d*r:4:2);
Readln;
End.
Program HOC24;
var a,b,c,max: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln('So lon nhat la: ',max);
readln
end.
Var a,b,c,min:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
Write('c = ');readln(c);
min:=a;
If b < min then min:=b;
If c < min then min:=c;
Write('So nho nhat la ',min:10:2);
Readln
End.
Câu e sai vì trong phần điều kiện không thể có dấu gán ':='
Câu f sai vì sau else chưa hết câu mà đã có dấu chấm phẩy
và Write phải chuyển thành Writeln và chu 'bang' chuyen thanh' = ' và 'khac' chuyển thành '\(\ne\)'