Введите с клавиатуры целое число. Выведите ** экран следующие число, удвоенное значение...

Question

Введите
с клавиатуры целое число. Выведите на экран следующие число, удвоенное
значение числа, противоположное число, модуль числа, квадрат числа.

Comments

Язык программирования?

---

введи 12. удвоенное - 24, противоположное- -24, модуль 12, квадрат 144

Answer 1

Program abc;
var a,b,c,d,e,f:integer;
begin
readln(a);
b:=a+1;
c:=a*2;
d:=a*(-1);
e:=abs(a);
f:=sqr(a);
writeln('Следующее число=',' ',b,' ','Удвоенное число=',' ',c,' ','Противоположное число=',' ',d,' ','Модуль числа=',' ',e,' ','Квадрат числа=',' ',f);
end.
Вот тебе программа для Pascal что бы проделывать такую ерунду с любым числом:)