21/02/2024
Làm sao để có câu trả lời hay nhất?
21/02/2024
21/02/2024
program In_A_B_Cong_B_A;
var
A, B: integer;
KQ: longint;
begin
Write('Nhap A: ');
Readln(A);
Write('Nhap B: ');
Readln(B);
KQ := 0;
if A > B then
begin
for i := 1 to B do
KQ := KQ + A;
for i := 1 to A - B do
KQ := KQ * A;
end
else
begin
for i := 1 to A do
KQ := KQ + B;
for i := 1 to B - A do
KQ := KQ * B;
end;
Writeln('A^B + B^A = ', KQ);
end.
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
03/09/2024
01/09/2024
Top thành viên trả lời