vara,b,c:integer;begina:=39;b:=абс(a);writeln(039;abs(39)=039;,b);c:=sqr(b);writeln(039;sqr(b)=039;,c);c

Var

a,b,c:integer;

begin

a:=39;

b:=абс(a);

writeln('абс(39)=',b);

c:=sqr(b);

writeln('sqr(b)=',c);

c:=sqr(b+b);

writeln('sqr(b+b)=',c);

end.

Задать свой вопрос
1 ответ
Что мешает скачать (безвозмездно) программку и выполнить задачу?

абс(39)=39
sqr(b)=1521
sqr(b+b)=6084
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт