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 ( dù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

thanhhuyn1999

2 năm trước

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 ( dù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 củ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ẻ chỉ khác ở phần xử lý điều kiện đúng thì giải quyết hai vấn đề) -Lấy số đó 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é

Loga Sinh Học lớp 12

0 lượt thích 47 xem

1 trả lời

Thích Trả lời

2750507358569074

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.

Vote (0) Phản hồi (0) 2 năm trước

679614806319277

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mọi người giải câu hệ phương trình này giúp mk vs

Trong những câu này thì câu nào SAI Ạ??? giúp e với ạ

1) Một bao xi măng có khối lượng là 50 kg. Hỏi 100 bao xi măng có trọng lượng là bao nhiêu? 2) Biết 10dm3 cát có khối lượng 15kg a) Tính thể tích của tấn cát b) Tính trọng lượng của một đống cát 3m3 3) Cho biết khối lượng riêng của nước là 1000kg/m3. Con số đó cho em biết điều gì? Tính trọng lượng riêng của nước GIÚP MÌNH NHA. MÌNH CẦN GẤP

Trong những câu này thì câu nào SAI Ạ????

Tại sao Men Đen lại lựa chọn câyddaaju Hà Lan làm thí nghiệm? Đậu Hà Lan vs nhiều ưu điểm : + ........... Câu 2 : Nội dug phươg pháp phân tích thế hệ lai của Men Đen là gì?

Một điện tích q=4.10 mũ -3 C đặt trong khiong khí =1 tính độ lớn và vẽ véc tơ cường độ điện trường tại điểm cách điện tích 2cm

HÃY CHO BIẾT NHỮNG ẢNH HƯỞNG CỦA VĂN HÓA TRUYỀN THỐNG ẤN DDOOJDDOOSI VỚI CÁC QUỐC GIA ĐÔNG NAM Á

Cho ∆ABC vuông tại B (AB < BC) có BH là đường cao. Kẻ HE vuông góc AB tại E, kẻ HF vuông góc BC tại F. a) Chứng minh: tứ giác BEHF là hình chữ nhật b) Gọi M là trung điểm của BC, qua M kẻ đường vuông góc với BC cắt AC tại N. Gọi K là điểm đối xứng với N qua M. chứng minh: tứ giác BNCK là hình thoi. c) Gọi O là giao điểm của AB và CK. Chứng minh: OF vuông góc EC.

tính 3x+2/x^2-2x+1 -6/x^2-1 -3x-2/x^2+2x+1

Có 5 tem thư khác nhau và 5 bì thư khác nhau. Hỏi có bao nhiêu cách dán tem vào bì?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến