Помогите написать программу в Excel

[Pchelka]

Помогите написать программу в Excel

Помогите пожалуйста написать программу в excel, ничего не получается выдает ошибку.1.Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные.

uses crt;
var a,b,c:real;
begin
clrscr;
writeln('Введите 3 действительных числа:');
readln(a);
if a>=0 then a:=a*a else a:=sqr(sqr(a));
readln(b);
if b>=0 then b:=b*b else b:=sqr(sqr(b));
readln(c);
if c>=0 then c:=c*c else c:=sqr(sqr(c));
write('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
readln
end.

 

[Vladimir_S]

Ничего не понимаю - с каких это пор в Excel встроен Паскаль? Мне казалось, что там исключительно VBA. Впрочем, вероятно, я просто не в курсе.
По программе.
Всё там правильно, никаких ошибок. Единственно - после набивки каждого из трех чисел нужно нажимать "Enter".

 

[Pchelka]

Здравствуйте, но мне нужно решение написать в excel, а я не знаю как правильно написать,помогите пожалуйста

 

[-ЗЛОЙ-]

или я ничего не понял или там сплошная элементарщина...

 

[Б.Г. Мот]

можно было и так:
=ЕСЛИ(A1<0;СТЕПЕНЬ(A1;4);СТЕПЕНЬ(A1;2))