Составить программму которая увеличивает значение выражения (a-b)*15 Если результат больше 100,то вывести соответствущее сообщение Если результат меньше или равен,то вывести только число Помогите пожалуйста решить:)

Question

Составить программму которая увеличивает значение выражения (a-b)*15 Если результат больше 100,то вывести соответствущее сообщение Если результат меньше или равен,то вывести только число Помогите пожалуйста решить:)

Гость

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

Accepted Answer

var a, b:real; begin write('a = '); readln(a); write('b = '); readln(b); if (a - b) * 15 > 100 then writeln('Результат больше 100') else writeln('(', a, ' - ', b, ') * 15 = ', (a - b) * 15 ); end.