1 ГБ = 1024 МБ
10 рублей = 1000 копеек
1000:1024=0,9765625(такая часть от 1ой копейки будет ценой 1Мб.
<span>Находим количество символов в 2 мегабайтах при 16 битной кодировке. (2*(2^10)*(2^10)*(2^3)/16=524288=2^19 символов.</span>
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
Вот блок-схема алгоритма выполнения домашнего задания по математике.
*Однако, обрати внимание!
На этапе проверки решения в тетради, может образоваться (РЕКУРСИВНЫЙ алгоритм т.е. Рекурсия)
Program z1;
var x,y:real;
begin
writeln('введите координаты точки (x;y), при у неотрицательный');
readln(x,y);
if x>0 then
writeln('точка находится в I четверти');
if x<0 then
writeln('точка находится вo II четверти');
if x=0 then
writeln('точка находится на оси ОY');
if y=0 then
writeln('точка находится на оси ОХ');
if (x=0)and(y=0) then
writeln('точка находится в начале координат');
end.