Program z1;
var i,m:integer;
begin
m:=0;
for i:=39 to 5000 do
if (i mod 39=0)and(m<i) then
m:=i;
writeln(m);
end.
World Wibe Web - Всемирная паутина
Сначала массив из 40 элементов заполняется случайными числами.
Затем элементы массива меняются местами, т. е. 1-й элемент становится 40-м, а 40-й - первым, второй - 39-м и наоборот.
Иными словами, массив переворачивается.
1,2, и всё остальное ёмкость
193.125 в 10=1x10²+9x10¹+3x10⁰+1x10⁻¹+2x10⁻²+5x10⁻³
193125 в 8=1x8⁵+9x8⁴+3x8³+1x8²+2x8¹+5x8⁰
193125 в 16=1x16⁵+9x16⁴+3x16³+1x16²+2x16¹+5x16⁰
1931.25 в 5=1x5³+9x5²+3x5¹+1x5⁰+2x5⁻¹+5x5⁻²