<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Ответ:
9
Объяснение:
В пятиричной системе двухзначные числа располагаются в интервале от 10₅ до 44₅ и это соответствует десятичным числам от 5 до 5·4+4=24,
В шестнадцатиричной системе минимальное число 10₁₆ соответствует десятичному числу 16, а число 24₁₀ в шестнадцатиричной системе записывается как (16+8)₁₀ = 18₁₆, т.е. оно тоже двухзначное.
Получаем интервал [16;24], в котором 24-16+1 = 9 чисел.
101×11=1 111
110×101=11 110
111×11=1 221
1011×11=11 121
01×1111=1111
01×101=101
101,11×1,101=111,32211
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>