Question

Даны две переменные А и В. Если значения не равны, тогда получить новые значения А и В путем сложения данных ранее значений, иначе оставить значения А и В без изменений.
паскаль​

Answer 1

program Znanija;

var a, b: integer;

addition: extended;

begin

writeln('Enter the value of A: ');

readln(a);

 

writeln(sLineBreak, 'Now, enter the value of B: ');

readln(b);

if a<>b then begin

addition := a*b;

writeln(sLineBreak, 'The numbers are not equal to each other: ', addition);

end

else begin

writeln(sLineBreak, 'The numbers are equal to each other: ', a, ', ', b);

end

end.