if (n*n)=((n-1)*(n-1))+((n-2)*(n-2)) then { n là số pytago} else { n không phải là số pytago}

câu 5 :

không hơp lệ

1: không có câu lệnh

2 : lệnh begin phải đứng sau program

Câu D

c1: 5+6

c2: a là 1 số nguyên

b là 1 kí tự

c3: a là 1 số nguyên

b là 1 xâu kí tự

c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a

c5,6: tương tự câu 4

c7: kết quả là:a/b

c8: 1

c9: c

c10:

sai lệnh ' clscrs ' đúng là 'clrscr;

sau lệnh readln(canh) thiếu dấu ";"

chưa khai báo biến "dientich"

dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.

c11:

phần khai báo sai chỗ "a.b" đúng là "a,b"

sai lệnh clrscr;

thiếu ";" sau lệnh readln(b)

chưa khai báo biến tổng

câu lệnh in kết quả sai ( thiếu " ' ")

c12:

if a>b then { a lớn hơn b } else

if a<b then { a nhỏ hơn b } else

{ a bằng b }

c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc

c14: bạn viết tương tự như c13 bổ sung thêm điều kiện

nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân

c15:

max:=a;

if (max>b) and(max >c) then max:=a else

if b>c then max:=b else max:=c;

write(max)

c16: làm tương tự c4,5,6

c17: bx+x+0 ???

c18: làm tương tự c16

1:if n mod 2=0 then { n là số chẵn } else { n là số lẻ };

2:for i:=1 to n do tong:=tong+i;

3:for i:=1 to n do

if i mod 2=0 then tongchan:=tongchan+i else tongle:=tongle+i;

câu 4 :

input :

a,b được nhập từ bàn phím

output:

a,b sau khi được hoán đổi cho nhau.

chương trình :

begin

read(a,b);

tam:=a; a:=b;b:=tam;

write(a,b);

end.

for i:=1 to n do

if a[i] mod 2=0 then s:=s+a[i] else ss:=ss+a[i];

writeln(' a)', s);

write(' b),ss);

không có môn nào là sao ? phải cho điểm từng môn cụ thể mới viết chương trình được!

mùa hè dây điên võng xuong , đuong ray xe lưa co khe hơ 

khi nấu nuoc ma đô đây âm khi sôi se trao ra ngoai

môt cai chai thuy tinh năp chăt nút khi hơ lên lửa se bi nổ vi không khi trong chai nơ ra

câu 5 :

var n,a,b:longint;
begin
read(a,b,n);
writeln(a*b);
writeln((a+b)*2);
writeln(n*n);
write(n*4);
end.