Question

Решите пожалуйста информатикчка ни чего не объяснила.

Answer 1

1) program znanija1;

var  

x,y:real;

begin

readln(x);

y := 2*x*x*x-4;

writeln(y);

end.

2)program znanija2;

var

a,b:real;

begin

writeln('Введите первое число');

readln(a);

writeln('Введите второе число');

readln(b);

Writeln('Произведение квадратов = ', sqr(a)*sqr(b));

Writeln('Разность квадратов = ', sqr(a)-sqr(b));

end.