Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>
Старый друг лучше новых двух
Ответ:
а)Сегодня хорошая погода!
б)Вы верно выполнили домашнее задание.
фраза "Старайтесь при выполнении заданий!" шифром Виженера
"ьюабноепэь аюн фёыоьыйауф зрсеаух!"
Объяснение:
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==