1. Viết Chương Trình Nhập Vào Từ Bàn Phím Ba Số Tự Nhiên A, B, C Và ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

helpme5
Chưa có nhóm

Trả lời
0
Điểm
4
Cảm ơn
0

Tin Học
Lớp 8
10 điểm
helpme5 - 14:57:03 20/08/2020

1. Viết chương trình nhập vào từ bàn phím ba số tự nhiên a, b, c và hiển thị kết quả thông báo ra màn hình bộ ba số đó có phải là bộ số Pitago hay không. HỨA CHO 5 SAO

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

Datdoan03
Chưa có nhóm

Trả lời
869
Điểm
24056
Cảm ơn
641

Datdoan03

20/08/2020

program ct;

uses crt;

var a,b,c:integer;

begin clrscr;

write('Nhap vao ba so tu nhien: '); readln(a,b,c);

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then

write('Day la bo so Pitago')

else write('Day khong phai bo so Pitago');

readln;

end.

Học tốt!

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar3.5starstarstarstarstar2 voteGửiHủy

Cảm ơn
Báo vi phạm

- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24056
- Cảm ơn
  641
what
- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24056
- Cảm ơn
  641
sao lại ko đúng
- helpme5
- Chưa có nhóm
- Trả lời
  0
- Điểm
  4
- Cảm ơn
  0
bạn lên thử trên pascal lại đi ạ!
- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24056
- Cảm ơn
  641
mình làm rồi, đúng mà
- tuongtaylor
- Hội code dạo
- Trả lời
  2376
- Điểm
  47183
- Cảm ơn
  1804
Bình phương cạnh huyền = tổng bình. Phương 2 canh còn lại á anh đạt
- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24056
- Cảm ơn
  641
thì a dùng or mà
- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24056
- Cảm ơn
  641
nó sẽ xét theo cái nào lớn hơn thì cho làm cạnh huyền
- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24056
- Cảm ơn
  641
đúng r á, thử ik

Đăng nhập để hỏi chi tiết avatar

tuongtaylor
Hội code dạo

Trả lời
2376
Điểm
47183
Cảm ơn
1804

tuongtaylor

20/08/2020

uses crt;var max,min1,min2,a,b,c:longint;beginclrscr; write('Nhap vao ba so:');readln(a,b,c); max:=a; min1:=b; min2:=c; if b>max then begin max:=b; min1:=a; min2:=c;end; if c>max then begin max:=c; min1:=a; min2:=b;end; if(max*max=min1*min1+min2*min2)then writeln('Day la bo 3 so pytago') else writeln('Day khong la bo 3 so pytago');readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?