На каком языке составить программу? Если на Pascal то вот Program Number1; var a, s : integer; Begin writeln(‘Введите цифру ‘); readln(a); S:=a*a; writeln(‘Площадь ‘, S); end.
Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. Искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.
Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную
Получается вот так: 21 = 10101 2=10 2002 = 11111010010
Если на Pascal то вот
Program Number1;
var a, s : integer;
Begin
writeln(‘Введите цифру ‘);
readln(a);
S:=a*a;
writeln(‘Площадь ‘, S);
end.