1) Даны два числа А и В на 10. Выбрать большее из них и удвоить

Задание:

1) Даны два числа А и В на 10. Выбрать большее из них и удвоить. 2) Увеличить число А на 10, если оно положительное, в другом случае уменьшить.

Решение:

1) vara,b: integer; beginreadln (a,b); if a>b then writeln (a*2); if b>a then writeln (b*2); end.2) vara: integer; beginreadln (a); if a>0 then writeln (a+10); if a<0 then writeln (a-10); end. Надеюсь на лучший ответ

Знаете другой ответ?

Отправить свой ответ