Một bộ ba số tự nhiên được gọi là bộ số Py-ta-go nếu thỏa mãn điều kiện: bình phương một số bằng tổng bình phương hai số còn lại. Ví dụ: Bộ số (3; 4, 5) là một
Một bộ ba số tự nhiên được gọi là bộ số Py-ta-go nếu thỏa mãn điều kiện: bình phương một số bằng tổng bình phương hai số còn lại. Ví dụ: Bộ số (3; 4, 5) là một bộ số Pytago vì: 5^2 = 3^2 + 4^2 Yêu cầu: Nhập vào từ bàn phím số nguyên dương X, (1 ≤ X ≤ 103) Kết quả: • In ra màn hình số 1 nếu có thể tách X thành tổng của ba số nguyên dương a, b, c sao cho (a; b; c) là một bộ ba số Py-ta-go. • In ra màn hình số 0 nếu không thể tách X thành tổng của ba số nguyên dương a, b, c sao cho (a; b; c) là một bộ ba số Py-ta-go. Ví dụ: Nhập bàn phím In Kết quả màn hình Giải thích X = 30 1 30 = 5 + 12 + 13 Mà 13^2 = 5^2 + 1^2 bài 2: cho xâu s, đếm số lần xuất hiện các chữ cái trong xau phương pháp: đếm phân phối pascal
Lời giải 1 :
Bài 1:
uses crt;
var x, i, j, k, r: longint;
begin
clrscr;
readln(x);
for i:=1 to x do begin
for j:=i to x do begin
k:=x - i - j;
if k <= j then break;
if i * i + j * j = k * k then inc(r);
end;
end;
writeln(r);
readln;
end.
Bài 2:
uses crt;
var s: ansistring;
cnt: array[char] of longint;
i: longint;
c: char;
begin
clrscr;
readln(s);
for i:=1 to length(s) do inc(cnt[s[i]]);
for i:=1 to 255 do begin
c:=chr(i);
if cnt[c] > 0 then writeln(cnt[c], ' ', c);
end;
readln;
end.
Thảo luận
Lời giải 2 :
Bài 1:
uses crt;
var x,i,j,k,r: longint;
begin
clrscr;
readln(x);
for i:=1 to x do begin
for j:=i to x do begin
k:=x-i-j;
if k<=j then break;
if i*i+j*j=k*k then r=r+1;
end;
end;
writeln(r);
readln;
end.
Bài 2:
uses crt;
var s: ansistring;
cnt: array[char] of longint;
i: longint;
c: char;
begin
clrscr;
readln(s);
for i:=1 to length(s) do inc(cnt[s[i]]);
for i:=1 to 255 do begin
c:=chr(i);
if cnt[c] > 0 then writeln(cnt[c], ' ', c);
end;
readln;
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK