Записать программу данного числа возведенного в куб если оно четное или увеличить на 3 если оно нечетное

262

360

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

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

евгений258

Информатика

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

program pr1; var a,y,z: integer; x: real; beginreadln(a); if a mod 2 = 0 then begin x : = exp(3*ln(a)); writeln(x: 8: 3); endelse begin a : = a+3; writeln(a); end; end.

Aleshchksuni

Информатика

4,8(43 оценок)

Var a, b: real; begin write('введите первое число = '); readln (a); write('введите второе число = '); readln (b); writeln(a,' * ',b,' = ',a*b); writeln(a,' + ',b,' = ',a+b); end.