Question

1, Viết chương trình nhập vào 1 số tự nhiên kiểm tra số đó là số chẵn hay lẻ?

2, Viết chương trình nhập vào độ dài 3 cạnh tam giác kiểm tra tam giác đó có phải là tam giác vuông hay không?

Answer 1

đơn giản quá

bài 1:

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.

bài 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

repeat

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

write('b='); readln(b);

write('c='); readln(c);

if (a+b<=c) or (a+c<=b) or (b+c<=a) then writeln('ban da nhap sai, yeu cau ban nhap lai');

until (a+b>c) and (a+c>b) and (b+c>a);

if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then writeln('day la tam giac vuong')

else writeln('day khong la tam giac vuong');

readln;

end.

Answer 2

Program Sara_Trang;

uses crt;

var a:integer;

begin

clrscr;

write('Nhap so a'); Readln(a);

if (a Mod 2=0) then writeln('La so chan')

else Writeln('La so le');

Readln

End.

Answer 3

Program Sara_Trang;

uses crt;

var a,b,c:real;

begin

clrscr;

Write('Nhap do dai canh thu nhat:'); Readln(a);

Write('Nhap do dai canh thu hai:'); Readln(b);

Write('Nhap do dai canh thu ba:'); Readln(c);

if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln('La tam giac vuong')

else writeln('Khong phai la tam giac vuong');

readln

end.

Answer 4

Nguyễn Lê Phước Thịnh Sara Trang Phạm Hoàng Lê Nguyên @Nguyễn Minh Lệ Giúp với ạ