Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
237_10 = 11101101_2
199_10 = 11000111_2
60_10 = 00111100_2
203_10 = 11001011_2
11101101110001110011110011001011
В первом задании переменная a будет равна 7, а во втором задании переменная a будет равна 8.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
<u><em>Тестовое решение</em></u>
23 25 25 23 23 24 20 23 25 21
1.8