Даны два числа. если они не равны, то замените каждое из них большими вывести результат. если они равны, то вывести их удвоенную сумму

105

497

Посмотреть ответы 2

Ответы на вопрос:

Kroo66944

Информатика

4,6(81 оценок)

Var a,b: integer; sum: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); if (a< > b) then begin a: =a+1; b: =b+1; writeln('числа не равны'); writeln('a= ',a); writeln('b= ',b); end; if (a=b) then begin sum: =a+b; sum: =sum*2; writeln('числа равны'); writeln('удвоенная сумма= ',sum); end; end.