Viết chương trình kiểm tra Xem ba số a,b,c Được nhập vào từ bàn phím Có là ba cạnh của tam giác vuông không ( dùnh định lý Pytago đảo )
Viết chương trình kiểm tra xem Số nguyên x được nhập vào bàn phím có phải là số chẳng không .
Nếu là số chẵn thì cho biết kết quả phép chia số đó cho 2 Và tích của Số đó nhân với 15 Ngược lại thì thông báo x là số lẻ.
(giống bài kiểm tra số chẵn số lẻ chỉ khác ở phần xử lý điều kiện đúng thì giải quyết hai vấn đề)
-Lấy số đó chia Với 2
-Lấy số đó nhân với 15
Các bạn cố gắng giải hộ mình nhé
Bài 1:
Program BTT;
Uses crt;
Var a,b,c: real;
Begin
Clrscr;
Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a))
then Write(‘Tam giac vuong’)
Else Write(‘Khong phai tam giac vuong’);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var x: longint;
Begin
Clrscr;
Write(‘Nhap x: ‘); Readln(x);
If x mod 2 = 0 then
Begin
Writeln(‘X la so chan’);
Writeln(‘Thuong cua so do voi 2 la: ‘,x/2:0:2);
Write(‘Tich cua so do voi 15 la: ‘,x*15);
End
Else Write(‘X la so le’);
Readln
End.
Câu 1:
uses crt;
var a,b,c:extended;
begin
clrscr;
write(‘Nhap 3 canh tam giac: ‘); readln(a,b,c);
if (sqrt(a)=sqrt(b)+sqrt(c)) or (sqrt(b)=sqrt(a)+sqrt(c)) or (sqrt(c)=sqrt(a)+sqrt(b)) then write(‘Day la tam giac vuong’)
else write(‘Day khong phai la tam giac vuong’);
readln;
end.
Câu 2:
uses crt;
var x:integer;
begin
clrscr;
write(‘Nhap so: ‘); readln(x);
if x mod 2=0 then
begin
writeln(x,’:2=’,x/2:0:2);
write(x,’.15=’,x*15);
end
else write(x,’ la so le’);
readln;
end.