Var a,b,h:integer;
begin
read(a;h);
write(a^a+2*a*sqrt(a^a/4+h*h));
wrteln((h*a*a)/3);
end.
begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
<h2>Задание 1</h2>
Так как в записи числа может присутствовать цифра 7, то система счисления называется 7 + 1 = восьмеричной (3)
<h2>Задание 2</h2>
Так как в записи числа присутствует число 5, то данное число существует во всех системах счисления, больших 5, то есть 6, 7, 8, 9, 10 и так далее (1, 3 (какая там система счисления? - речная), 4)
<h2>Задание 3</h2>
101₂ = 100 + 1 = 11 + 1 + 1 = 10 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1. Так как единица в двоичной системе равна единице в десятичной системе, то складываем и получаем ответ 5 (2)
<h2>Задание 4</h2>
Только над целыми (1)
<h2>Задание 5</h2>
a = 8;
b = 6 + 3 · a = 6 + 3 · 8 = 30
Так как нам нужно определить именно значение b, то вычислять значение переменной a не имеет смысла.
<h2>Задание 6</h2>
begin - оператор открытия основного блока, read - чтение значения переменных, wrircln - бред, а print - вывод (4)