

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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.
Hãy giúp mọi người biết câu trả lời này thế nào?

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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
20
237
9
https://hoidap247.com/cau-hoi/3826491 help
20
237
9
https://hoidap247.com/cau-hoi/3833842
20
237
9
https://hoidap247.com/cau-hoi/3837653 helppppppppppppp
20
237
9
https://hoidap247.com/cau-hoi/3837653%20h
20
237
9
https://hoidap247.com/cau-hoi/3858038