Var a,b: integer;
<span>begin
</span><span> write('a b через пробел: ');
</span><span> readln(a,b);
</span><span> if (((a div 10) mod 10) mod 2 = 0) or
</span><span> (((b div 10) mod 10) mod 2 =0) then
</span><span> begin
</span><span> a:=a*a; b:=floor(sqrt(b));
</span><span> end
</span><span> else
</span><span> begin
</span><span> a:=floor(sqrt(a));
</span><span> b:=b*b;
</span><span> end;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a b через пробел: 13 54
<span>a = 3 b = 2916
</span>
a b через пробел: 24 16
<span>a = 576 b = 4
</span>
Из каждой цифры можно составить по шесть трехзначных чисел. И того равняется 24.
3,14₁₀=3*10⁰+1*10⁻¹+4*10⁻²
10,1₂=1*2¹+0*2⁰+1*2⁻¹
Var s: array[1..4] of string=('тысяч - ','сотен - ','десятков - ','единиц - ');
<span> nm: string;
</span><span> i: integer;
</span><span>begin
</span><span> write('n = '); readln(nm);
</span><span> for i:=1 to 4 do
</span><span> writeln('цифра ',s[i],nm[i]);
</span><span>end.
</span>
n = 9214
<span>цифра тысяч - 9
</span><span>цифра сотен - 2
</span><span>цифра десятков - 1
</span><span>цифра единиц - 4
</span>