
05/07/2023
05/07/2023
uses crt;
var A, B, S, i : integer;
f1, f2 : text;
begin
clrscr;
assign(f1, 'GAME.INP'); reset(f1);
assign(f2, 'GAME.OUT'); rewrite(f2);
readln(f1, A, B);
S := 0;
for i := 1 to 2 do
if A > B then
begin
S := S + A;
A := A - 1;
end
else
begin
S := S + B;
B := B - 1;
end;
write(f2, S);
close(f1); close(f2);
readln
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
Top thành viên trả lời