<span>Может содержать от 7 до 8 цифр.</span>
<em>Microsoft QBasic 1.0</em>
DIM p AS DOUBLE
p = 1
FOR i = 5 TO 27
p = p * i ^ 2
NEXT i
PRINT p
<u>Результат</u>
2.05846315812941D+53
Точное значение (для контроля) вычисленное в программе компьютерной математики: 205846315812941087891721086815311205761024000000000000
Program lol;
Const n=6;
var a:array [1..n] of integer;
i,s:integer;
begin
begin
for i:=1 to n do
readln (a[i]);
end;
s:=a[1]+a[2];
for i:=2 to n do
begin
if s>(a[i]+a[i-1]) then
s:=a[i]+a[i-1];
end;
writeln (s);
end.
сначала 10 если кучки по 5 равны то 2 оставшиеся
1,48810*10^2
14,8810*10^1
1488,10^-1