Предоставляю программу на языке Pascal!
var
A, B, X: integer;
begin
readln (A, B, X);
if (X = 1) then write (A+B, ' - сумма')
else if (X = 2) then write (A-B, ' - разность');
end.
PascalABC.NET
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
Предоставляю программу на языке Pascal!
var
A, B, X: integer;
begin
readln (A, B, X);
if (X = 1) then write (A+B, ' - сумма')
else if (X = 2) then write (A-B, ' - разность');
end.
PascalABC.NET
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.