Эмм... число -157 невозможно поместить в 1 байт. ( 7 бит может представить число от 0 до 128)
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
if (N>0) and (N mod 5 =0) then
Writeln('N=',sqrt(N)) else
Writeln('N=',N**2);
end.
Только для третьего. Эксель и я сошлись во мнениях.
Значит надо построить таблицу, но сдается мне, что для любых значений A и B мы получим 1
<span>Первый тип — <em>линейный </em>алгоритм; такой, в котором все действия выполняются в строгом порядке, последовательно, одно за другим.</span>
<span> Второй тип — <em>разветвляющийся </em>алгоритм; такой, в котором выполняются те </span><span>или иные действия в зависимости от выполнения или невыполнения некоего условия. </span>
<span> Третий тип — <em>циклический </em>алгоритм; такой, в котором присутству</span><span>ют повторяющиеся действия с какой-либо изменяющейся величиной, так<span>называемым <em>параметром.</em></span></span>