Вместо "a := a * a" можно использовать "a := sqr(a)"
--------------------------------------------------------------------
var
a : integer;
begin
write('Введите число: '); //Вывод сообщения
readln(a); //Ввод числа
a := a * a; //Возведение в квадрат
writeln('Введенное число в квадрате = ', a); //Вывод результата
readln;
end.
Procedure PrintMatrix(matrix : array[,] of integer);
begin
matrix.Println;
end;
Смотря какую.У меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :
на красном море допустим 45%
на чёрном море 15%
ну и т.д.
3, 14₁₀=3*10⁰+1*10⁻¹+4*10⁻²
<span>10,1₂=1*2¹+0*2⁰+1*2⁻¹
У меня похожее было...
Удачки...!</span>