244.375 | 0x1.e8c000p+7
452.156 | 0x1.c42800p+8
Если бы было нужно решение, написал бы.
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два неотрицательных числа:');
if a = b then
Println('Введенные числа равны')
else
Println('Квадрат наибольшего:', Sqr(Max(a,b)),
' корень квадратный наименьшего:', Sqrt(Min(a,b)));
end.
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
<span>оператор цикла с заданным числом повторений</span>
143
48 div 5 = 9 48 mod 5 = 3
9 div 5 = 1 9 mod 5 = 4
1 div 5 = 0 1 mod 5 = 1
Записываем результат mod в обратном порядке = 143