Ответ:
Ответ даю в десятичной системе счисления
Объяснение:
Вместо "a := a * a" можно использовать "a := sqr(a)"
--------------------------------------------------------------------
var
a : integer;
begin
write('Введите число: '); //Вывод сообщения
readln(a); //Ввод числа
a := a * a; //Возведение в квадрат
writeln('Введенное число в квадрате = ', a); //Вывод результата
readln;
end.
<span> <span>var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n);
k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.</span></span>
Abs - модуль числа.
div - целочисленный результат деления
mod - остаток от деления.
1) 10/12 = 0.8. Целый результат - 0. Модуль нуля тоже ноль.
2) корень из 17 - 4,12. Модуль - 4.