Форум на PC Mania

Да се напише програма за намиране стойността на израза M , като въведете число Х от клавиатурата и от него извадите (3x-1). Получения резултат повдигнете на квадрат.

Ейййййй.И заповядваш

По памет (не съм писал на паскал от 3 години), без компилатор:

PROGRAM M
var
x : integer;
BEGIN
readln(x);
writeln( (3*x - 1) * (3*x - 1) );
END.

MX3x-1


няма нужда да ми благодариш

Хм... не си чета добре условието...

PROGRAM M
var
x : integer;
BEGIN
readln(x);
x := x - (3 * x) + 1;
writeln( x * x );
END.