Nguyễn Ngọc Quý đúng rồi đó

Ai li-ke cho mình đi để khỏi bị trừ điểm với !

20 bạn nhé!

hu!hu! tui trả lời đầu tiên mà

Program bai1;

uses crt;

var a,b,c,cv:word;

begin

clrscr;

write('nhap vao so a=');readln(a);

write('nhap vao so b=');readln(b);

write('nhap vao so c=');readln(c);

if (a+b>c) and (b+c>a) and (a+c>b) then

begin

writeln('a,b,c tao nen tam giac');

cv:=a+b+c;

writeln('chu vi tam giac = ' ,cv)

end

else

writeln('a,b,c khong tao nen tam giac');

readln;

end.

Program bai1;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n = '); readln(n);

if n mod 2 = 0 then writeln('la so chan ')

else writeln('la so le ');

readln;

end.

s=9 hay sao ý

vì (a+b) không thể chia hết cho 2 và sẽ dư

câu lệnh này sai s không thể gán = b câu lệnh sẽ chuyển sang s gán = a nên

s = 9;

Program bai1;

uses

crt;

var a: integer;

begin

clrcr;

write('nhap a ='); readln(a);

if a mod 2 <> 0 then writeln(a);

readln;

end.

Program bai1;

uses

crt;

var a : integer;

begin

clrscr;

write('nhap a ='); readln(a);

if a mod 2 = 0 then writeln('la so chan ') else

writeln('la so le ');

readln;

end.

program bai3;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n mod 2 = 0 then write('la so chan ')

else

writeln('la so le ');

readln;

end.